r - 当 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 轴？

Answer 1

尝试使用 facet_wrap反而:

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