使用ggplot在facet上创建零件固定,无零件的轴限制？

Question

我想使用ggplot2创建一个多面图,其中y轴的最小限制将被固定(比如0),最大限制将由facet中的数据确定(就像它是什么时候一样scales="free_y".我希望像下面这样的东西可以工作,但没有这样的运气:

library(plyr)
library(ggplot2)

#Create the underlying data
l <- gl(2, 10, 20, labels=letters[1:2])
x <- rep(1:10, 2)
y <- c(runif(10), runif(10)*100)
df <- data.frame(l=l, x=x, y=y)

#Create a separate data frame to define axis limits
dfLim <- ddply(df, .(l), function(y) max(y$y))
names(dfLim)[2] <- "yMax"
dfLim$yMin <- 0

#Create a plot that works, but has totally free scales
p <- ggplot(df, aes(x=x, y=y)) + geom_point() + facet_wrap(~l, scales="free_y") 
#Add y limits defined by the limits dataframe
p + ylim(dfLim$yMin, dfLim$yMax)

这对我来说并不太令人惊讶,因为它引发了一个错误(length(lims) == 2 is not TRUE),但我想不出一个开始解决这个问题的策略.

Answer 1

在您的情况下,以下任何一种都可以工作:

p + expand_limits(y=0)

p + aes(ymin=0)