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