我有两组关于 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 轴?