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