使用带有facet_wrap的ggplot2在R中显示多个轴标签

Question

我用ggplo2创建了一个很好的facet_wrap密度图。我希望每个面板都有x和y轴标签，而不是只有左侧的y轴标签和底部的x标签。我现在拥有的是这样的：

library(ggplot2)
myGroups <- sample(c("Mo", "Larry", "Curly"), 100, replace=T)
myValues <- rnorm(300)
df <- data.frame(myGroups, myValues)


p <- ggplot(df)  + 
  geom_density(aes(myValues), fill = alpha("#335785", .6)) + 
  facet_wrap(~ myGroups)
p

返回：

_{（来源：cerebralmastication.com）}

看起来这应该很简单，但我的Google Fu太穷了，无法找到答案。

Answer 1

您可以通过在facet_wrap调用中包含scales =“free”选项来执行此操作：

myGroups <- sample(c("Mo", "Larry", "Curly"), 100, replace=T)
myValues <- rnorm(300)
df <- data.frame(myGroups, myValues)


p <- ggplot(df)  + 
  geom_density(aes(myValues), fill = alpha("#335785", .6)) + 
  facet_wrap(~ myGroups, scales="free")
p

Answer 2

简短回答：你做不到。用3个图表可能有意义，但是如果你有32个图形的大格子怎么办？那看起来很吵，很糟糕。 GGplot的理念是通过最少的自定义来做正确的事情，这自然意味着您无法像其他软件包那样自定义事物。

答案很长：你可以通过构造三个独立的ggplot对象并将它们组合来伪造它。但这不是一个非常普遍的解决方案。这是Hadley的书中的一些代码，假设你已经创建了ggplot对象a，b和c。它将a放在顶行，b和c位于底行。

grid.newpage()
pushViewport(viewport(layout=grid.layout(2,2)))
vplayout<-function(x,y)
    viewport(layout.pos.row=x,layout.pos.col=y)
print(a,vp=vplayout(1,1:2))
print(b,vp=vplayout(2,1))
print(c,vp=vplayout(2,2))