在ggplot2中的x轴上分组

Question

在ggplot中，我想在x轴上创建子类别，如下所示：

Multirow轴标签中带有嵌套分组变量的解决方案 不起作用。

Answer 1

更新到2.2.0或更高版本ggplot2。然后，您可以使用的更多功能facet_wrap来构建所需的图形。这是一个例子：

library(ggplot2)
packageVersion("ggplot2")
# [1] ‘2.2.1’

dat <-
  data.frame(category = c("A", "A", "B", "B", "C", "C"),
             subcat   = c("S1", "S2", "S1", "S2", "S1", "S2"),
             value    = c(73, 57, 7, 23, 51, 87))

ggplot(data = dat) +
  aes(x = subcat, y = value, fill = subcat) +
  geom_bar(stat = "identity", width = 1) +
  geom_text(mapping = aes(label = paste0(value, "%")), vjust = -0.5) +
  facet_wrap( ~ category, strip.position = "bottom", scales = "free_x") +
  theme(panel.spacing = unit(0, "lines"),
        strip.background = element_blank(),
        strip.placement = "outside") +
  xlab("x-axis label")