Как разместить одинаковое сглаживание на каждой грани объекта ggplot2?

Вот пример:

eg <- data.frame(x = c(1:50, 50:1),  
                 y = c(1:50, 1:50) + rnorm(100),  
                 g = rep(c("a","b"), each=50))  

qplot(x, y, data = eg) +  
  facet_wrap(~ g) +  
  geom_smooth()

Я хотел бы иметь возможность отображать общую гладкость на обеих гранях, а также иметь сглаживания, специфичные для граней.

Изменить: вот один из способов.

my.smooth <- gam(y ~ s(x), data = eg)
my.data <- data.frame(x = 1:50)                                           
my.data$y <- predict(my.smooth, newdata = my.data) 

qplot(x, y, data = eg) + 
    facet_wrap(~ g) + 
    geom_smooth() + 
    geom_smooth(data = my.data)

Спасибо за любую помощь!

Андрей


r plot ggplot2 facet
person Andrew Robinson    schedule 13.07.2011    source источник
comment
Примеры здесь должны быть релевантными: had.co.nz/ggplot2/geom_smooth.html   -  person Chase    schedule 13.07.2011
comment
schweet, рад, что вы смогли понять это. Не стесняйтесь ответить на свой вопрос, а затем принять его, совершенно законный поступок. Добро пожаловать в СО!   -  person Chase    schedule 13.07.2011

Ответы (1)


arrow_upward
6
arrow_downward

Умный трюк: задание для переменной фасетирования значения NULL< /а>

library(ggplot2)
eg <- data.frame(x = c(1:50, 50:1),  
                 y = c(1:50, 1:50) + rnorm(100),  
                 g = rep(c("a","b"), each=50))  

p <- qplot(x, y, data = eg) +  
  facet_wrap(~ g) +  
  geom_smooth()

p + geom_smooth(data=within(eg, g <- NULL), fill="red")

Или, если хотите, используйте facet_grid(..., margins=TRUE):

p + facet_grid(.~g, margins=TRUE)
person Jon Olav Vik    schedule 02.12.2011