スパンパラメータをレススムーサーに変更して、単一のファセットプロット（格子スタイル）を作成したいと思います。以下のように 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)
}