方面ggplot通過黃土平滑器的跨度參數

Question

我想通過改變黃土平滑器的跨度參數來製作一個單面構圖（格子樣式）。我嘗試使用下面的for循環，但沒有生成劇情。如果我要使用ggsave函數，那麼繪圖會分開保存。

此外，我想知道是否有更簡陋的方法來完成這樣的任務？

x <- rep(1:10,4) 
y <- 1.2*x + rnorm(40,0,3) 
s <- seq(0.2,0.8,0.1) 

# plot the series of plots by varying the span parameter 
for (s_i in s) { 
    qplot(x, y, geom = 'c('point','smooth'), span = s_i) 
} 

Answer 1

如果明確print情節你的方法會工作得很好（和擺脫你的額外'馬克的）：

for (s_i in s) { 
    print(qplot(x, y, geom = c('point','smooth'), span = s_i)) 
} 

至於其他的方法來做到這一點，我建議把所有您在列表中地塊

changing_span = list() 
for (i in seq_along(s)) { 
    changing_span[[i]] <- qplot(x, y, geom = c('point','smooth'), span = s[i]) + 
     labs(title = paste("span:", s[i])) 
} 

然後你就可以一起繪製所有的人，比如，

library(gridExtra) 
do.call(grid.arrange, changing_span)