Сгруппированная гистограмма ggplot2 без facet_grid

Привет, я хотел сделать гистограмму с накоплением, используя ggplot2 с данными ниже:

    DF <- read.table(text="Rank   P_Rank    value_Rank     P2_Rank
                             AC      1        250             1
                             AN      1        100             1
                             AT      1        155             1
                             CA      1        90              1
                             CG      2        630             1
                             CN      2        150             1
                             CT      2        384             1
                             GA      2        485             1
                             CA      3        94              1 
                             AT      3        75              1
                             GN      3        163             1
                             GT      3        97              1
                             CA      4        63              2
                             CG      4        16              2
                             CT      4        140             2
                             CG      4        610             2
                             CN      5        46              2
                             CT      5        330             2
                             GA      5        150             2
                             CA      5        67              2 
                             CG      6        130             2
                             CN      6        250             2
                             CT      6        484             2
                             GA      6        185             2", header=TRUE)

ggplot(DF, aes(x = as.factor(P_Rank), y = value_Rank, fill = Rank)) + geom_bar(stat = "identity")

Я получил эту гистограмму, но хотел бы сгруппировать столбцы с накоплением в зависимости от переменной «P2_Rank». Красным выделено то, что я хотел бы добавить (я не предпочитаю 2 версии гистограмм A или B, потому что они соответствуют моим потребностям).

введите здесь описание изображения

Спасибо заранее!


r stacked-chart bar-chart ggplot2
person sdhaoui    schedule 27.09.2016    source источник

Ответы (1)


arrow_upward
3
arrow_downward

Обновление. Оказывается, я невнимательно прочитал ваш пост — я только что заметил, что вы сказали «без facet_grid» в заголовке. Я все равно оставлю это здесь, но голосующий может свободно удалить свой голос.

Вы можете попробовать огранку:

ggplot(DF, 
  aes(x = as.factor(P_Rank), y = value_Rank, fill = Rank)) + 
  geom_bar(stat = "identity") +
  facet_wrap(~ P2_Rank, scales = "free_x", switch = "x") +
  scale_x_discrete("P2_Rank", labels = NULL) +
  theme(strip.background = element_blank(),
        panel.margin = unit(-1, "lines"))

Вывод: введите здесь описание изображения

person Weihuang Wong    schedule 27.09.2016