当X值相同时，强制在两个图中的X轴上的X轴

Question

我有两个组中的X轴约30个类别的数据用于分面。我将展示这与一些随机数据：

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")