R几何对象geom_smooth()函数开发与测试

library(tidyverse)
ggplot(data = mpg) + 
  geom_smooth(mapping = aes(x = displ, y = hwy, linetype = drv))

ggplot(data = mpg) + 
  geom_smooth(mapping = aes(x = displ, y = hwy, linetype = 'dashed'))

插入参数：formula = y ~ x,method='lm'，效果如下：

library(tidyverse)
ggplot(data = mpg) + 
  geom_smooth(mapping = aes(x = displ, y = hwy, linetype = drv),formula = y ~ x,method='lm')

修改参数：method='loess'

ggplot(data = mpg) + 
  geom_smooth(mapping = aes(x = displ, y = hwy, linetype = drv),formula = y ~ x,method='loess')

修改method为auto

ggplot(data = mpg) + 
  geom_smooth(mapping = aes(x = displ, y = hwy, linetype = drv), stat = "smooth",
              position = "identity",formula = y ~ x,method="auto"
              ,span =1.75)

修改公式为:y=y ~ poly(x, 2)

library(tidyverse)
ggplot(data = mpg) + 
  geom_smooth(mapping = aes(x = displ, y = hwy, linetype = drv), stat = "smooth",
              position = "identity",formula = y ~ poly(x, 2),method="auto"
              ,span =175)

修改公式：y ~ log(x)

library(tidyverse)
ggplot(data = mpg) + 
  geom_smooth(mapping = aes(x = displ, y = hwy, linetype = drv), stat = "smooth",
              position = "identity",formula = y ~ log(x),method="auto"
              ,span =175)

参考文献：R数据科学---[新西兰]哈德利 威克姆，[美]加勒特 格罗勒芒德---陈光欣[译] 北京:人民邮电出版社

                 百度文库---颜色大全：含中英文对照及色值

开发环境：RStudio