ggplot2의 패널 당 매끄럽게하기

Question

ggplot2에서 패싯을 사용하여 커브 그룹을 플로팅합니다. 나는 매끄럽게하는 점이 충분하지만 매우 적은 점을 가진 플롯에는 적용하지 않는 플롯에 더 부드럽게 적용하고 싶습니다. 특히, 패널 중 하나에 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) 

Answer 1

이

library(ggplot2) 
a <- data.frame(x=1:100, y=sin(seq(0.1,10,0.1))) 
b <- data.frame(x=1:2, y=sin(seq(0.1,0.2, length = 2))) 
l <- melt(list(a=a,b=b),id.vars="x") 

more_than <- function(n) { 
    function(df) { 
    if (nrow(df) > n) { 
     df 
    } 
    } 
} 

lbig <- ddply(l, "L1", more_than(5)) 

qplot(x, value, data=l) + geom_smooth() + facet_wrap(~ L1) 
qplot(x, value, data=l) + geom_smooth(data = lbig) + facet_wrap(~ L1)