当X值相同时，在一个分面网格中强制两个图表使用相同的X轴。

Question

我有一个包含大约30个类别的数据，要在分面图中分成两组显示在X轴上。这里用一些随机数据来演示：

dataf <- data.frame(x=c(1:30), A=rnorm(30,20,5), B=rnorm(30,15,0.5))
datam <- melt(dataf, id="x")
ggplot(datam, aes(factor(x), value)) + 
  geom_bar(stat="identity") + 
  facet_grid(variable ~ .)

这很棒，但如果在顶部分组中也能重新制作出X轴，那就更容易快速阅读顶部分类了。不过...

ggplot(datam, aes(factor(x), value)) + 
  geom_bar(stat="identity") + 
  facet_grid(variable ~ ., scales="free")

因为我猜这两个分组的值是相同的，所以对于 X 轴没有影响。

如何强制在顶部组的柱形图中也重现 X 轴？

- MattLBeck

Answer 1

尝试使用facet_wrap代替：

ggplot(datam, aes(factor(x), value)) + 
    geom_bar(stat="identity") + 
    facet_wrap(~variable,nrow = 2,scales = "free")

- joran