我正在绘制一组曲线,使用 ggplot2 中的 facet。我希望将平滑器应用于有足够点进行平滑的绘图,但不适用于具有很少点的绘图。特别是当其中一个面板只有 1 或 2 个点时,我想阻止情节失败。
例子:
a <- data.frame( x=1:100, y=sin(seq(0.1,10,0.1) ))
b <- data.frame( x=1:5, y=sin(seq(0.1,0.2,0.1) ))
l <- melt(list(a=a,b=b),id.vars="x")
qplot( x, value, data=l ) + geom_smooth() + facet_wrap( ~ L1 )