ggplot2 - 设置下限大于最低点

Question

由于某种原因，我适合ggplot2的函数延伸到y轴以外，即使可以获得的最小值为零。因此，在尝试将下限限制为零时，我注意到似乎只能设置下限，以便省略数据点（或显然是预测点）。这是真的吗？

例如，可以使用expand_limits缩小，原样如下：

require(ggplot2)
p = ggplot(mtcars, aes(wt, mpg)) + geom_point() 
p + expand_limits(y=0)

但是人们无法放大：

p + expand_limits(y=15)

与美学相同：

p + aes(ymin=0)
p + aes(ymin=15)

我知道我可以使用ylim，coord_cartesian等来设置两者的上限和下限，但在这种情况下，我将一个列表传递给ggplot使用lapply，并根据列表中的哪个对象绘制上限更改。所以我回到单独绘制每个对象，这非常乏味。有什么想法吗？

编辑：Hadley确认这是不可能的，所以@Arun的解决方法必须要做！

Answer 1

这取决于你想要如何绘制图形，但是如果你可以为每个图形创建一个上限矢量，你可以做这样的事情......

# Some vector of upper bounds for each plot which you can determine beforehand
ul <- c(20,25,30,35)
# Layout for printing plots (obviously you can handle this part however you like, this is just an example)
vplayout <- function(x, y) viewport(layout.pos.row = x, layout.pos.col = y)

# Make some sensible number of rows/columns for plot page
x <- floor(sqrt(length(ul)))
y <- ceiling( length(ul) / x )

# Make list to hold plots
plots <- as.list( 1:length(ul) )
dim( plots ) <- c( x , y )


# Store plots with variable upper limit variable each time 
for( i in plots ){
        plots[[i]] <- ggplot(mtcars, aes(wt, mpg)) + geom_point()  + scale_y_continuous( limits = c( 15,ul[i]) , expand = c( 0 , 0 ) )
}


# Print the plots
grid.newpage()
pushViewport(viewport(layout = grid.layout(x, y)))
for( i in 1:x){
    for( j in 1:y){
        print( plots[[ i , j ]] , vp = vplayout( i , j ) )
        }
    }