ggplot2：由两个变量分组时的轴标记

Question

我在ggplot中有一个简单的条形图，x轴上有两个因子变量：

library(ggplot2)
dat <- data.frame(group1= c(1,1,1,1,2,2,2,2,3,3,3,3,4,4,4,4),
                  group2= rep(1:4,4),
                  val = 1:16)

ggplot(dat, aes(x=group1,y=val,group=group2))+
  geom_bar(stat="identity", position="dodge")

添加第二个x轴标签（对于group2）最简单的方法是什么？这个问题here有一个更复杂的版本，但我不知道如何将这个逻辑应用于这个简单的案例。

Answer 1

根据Jimbou发布的question的建议，一个解决方案是：

ggplot(dat, aes(y=val,x=group2))+
  geom_bar(stat="identity")+
  facet_grid(.~group1,scales="free")

我很想知道是否有另一个使用annotate的解决方案，正如该问题中所建议的那样，在分组变量是两个因素的情况下有效。