将平滑器添加到ggplot 2

Question

我已使用以下代码使用ggplot2在r中创建绘图：

g <- ggplot(newdata, aes(MVPAper, FMI) +
    geom_smooth(method = 'lm'))

然后添加以下内容：

p <- g + geom_point(aes(color = Age)) + 
     facet_grid(Age ~ .) + 
     stat_smooth(method = 'lm') + 
     theme_bw(base_family = 'Times')`

我想为自己创建的四个图表中的每一个都做一个平滑处理，使用多面网格将图表分为8、9、12和15个四个年龄段），有人可以协助我的代码吗？

Answer 1

您不需要geom_smooth()和stat_smooth()。试试这个：

library(tidyverse)

df <- diamonds %>% filter(price < 10000, carat < 2.5)

g <- ggplot(df, aes(carat, price, color = cut))

g + 
  geom_point() + 
  geom_smooth(method = 'lm') +
  facet_grid(cut ~ .) + 
  theme_bw()