ggplot2: группа дискретных значений оси x в подгруппы

Question

Я хотел бы создать гистограмму с помощью ggplot2, в которой дискретные значения оси x будут сгруппированы в подгруппы (см. Прилагаемое изображение - изображение из Интернета. У меня пока нет кода для графика).

Спасибо за вашу помощь!

Answer 1

Два подхода:

Пример данных:

dat <- data.frame(value=runif(26)*10,
                  grouping=c(rep("Group 1",10),
                             rep("Group 2",10),
                             rep("Group 3",6)),
                  letters=LETTERS[1:26])

head(dat)
     value grouping letters
1 8.316451  Group 1       A
2 9.768578  Group 1       B
3 4.896294  Group 1       C
4 2.004545  Group 1       D
5 4.905058  Group 1       E
6 8.997713  Group 1       F

Без огранки:

ggplot(dat, aes(grouping, value, fill=letters, label = letters)) + 
     geom_bar(position="dodge", stat="identity") + 
     geom_text(position = position_dodge(width = 1), aes(x=grouping, y=0))

С огранкой:

ggplot(dat, aes(letters,value, label = letters)) + 
     geom_bar(stat="identity") + 
     facet_wrap(~grouping, scales="free")

Огранка имеет очевидное преимущество, заключающееся в том, что она не мешает расположению этикеток.

Answer 2

Чтобы навалить альтернативу, есть такжеggh4x::guide_axis_nested(), который решает аналогичную проблему. Отказ от ответственности: я автор ggh4x.

      library(ggplot2)

df <- data.frame(
  x = LETTERS[1:16],
  group = rep(c("Group 1", "Group 2", "Group 3"), c(5, 3, 8)),
  value = rpois(16, 10)
)

ggplot(df, aes(paste0(x, "&", group), value)) +
  geom_col() +
  guides(x = ggh4x::guide_axis_nested(delim = "&"))

^{Создано 24 февраля 2023 г. пакетом reprex (v2.0.0)}