怎么用R语言的ggplot2做平滑的折线图

之前的图文 跟着Nature Genetics学画图~ggplot2画折线图并在指定区域添加灰色背景 画折线图的遇到的一个问题是：ggplot2默认的折线图画出来基本都是带尖的，有没有办法将折线图变得平滑一点呢？

• 一种是增加作图用到的数据的数量，可以实现折线图变平滑
• 另外一种是使用 ggplot2的扩展包 ggalt中的 geom_xspline()函数，更贴心的是还给出了参考推文链接 https://mp.weixin.qq.com/s/kGsEAz6icSsEh50uOeHvBA

接下来我们就试试ggalt中的geom_xspline()函数画折线图的效果

通常遇到一个新的包直接用必应搜索搜包的名字就可以找到对应的帮助文档

打开这个包的github主页就有对应的帮助文档

ggalt: Extra Coordinate Systems,Geoms, Statistical Transformations, Scales & Fonts for ggplot2 (这句话是啥意思？用我蹩脚的英语翻译过来：给ggplot2准备的额外的坐标系统，图层，统计变化，字体等) 这个包具体都有啥功能今天就不研究了，主要记录一下如何实现平滑的折线图

直接install.packages()就可以了

install.packages("ggalt")

一个简单的小例子

df<-data.frame(x=1:10,
               y=sample(1:20,10))

library(ggplot2)
ggplot(df,aes(x=x,y=y))+
  geom_line()+
  geom_point(size=3)+
  theme_bw()

ggplot(df,aes(x=x,y=y))+
  geom_xspline()+
  geom_point(size=3)+
  theme_bw()

这个看起来就比geom_line()函数平滑了一些

geom_spline()函数里有一个参数spline_shape,我们分别给这个参数赋予不同的值来看看他起到什么效果

p1<-ggplot(df,aes(x=x,y=y))+
  geom_xspline(spline_shape = -2)+
  geom_point(size=3)+
  theme_bw()+
  ggtitle("spline_shape = -2")+
  labs(x=NULL,y=NULL)

p2<-ggplot(df,aes(x=x,y=y))+
  geom_xspline(spline_shape = -1)+
  geom_point(size=3)+
  theme_bw()+
  ggtitle("spline_shape = -1")+
  labs(x=NULL,y=NULL)
p3<-ggplot(df,aes(x=x,y=y))+
  geom_xspline(spline_shape = -0.5)+
  geom_point(size=3)+
  theme_bw()+
  ggtitle("spline_shape = -0.5")+
  labs(x=NULL,y=NULL)
p4<-ggplot(df,aes(x=x,y=y))+
  geom_xspline(spline_shape = 0)+
  geom_point(size=3)+
  theme_bw()+
  ggtitle("spline_shape = 0")+
  labs(x=NULL,y=NULL)
p5<-ggplot(df,aes(x=x,y=y))+
  geom_xspline(spline_shape = 1)+
  geom_point(size=3)+
  theme_bw()+
  ggtitle("spline_shape = 1")+
  labs(x=NULL,y=NULL)
p6<-ggplot(df,aes(x=x,y=y))+
  geom_xspline(spline_shape = 2)+
  geom_point(size=3)+
  theme_bw()+
  ggtitle("spline_shape = 2")+
  labs(x=NULL,y=NULL)
cowplot::plot_grid(p1,p2,p3,p4,p5,p6,ncol = 3,nrow=2)

如果将spline_shape参数设置为0，效果和geom_line()函数是一样的，如果大于0，不会将所有的点连接起来，小于0就是带有平滑效果的曲线。但是这个值也不能太大或者太小，绝对值大于2，有的地方会变粗，这个是什么原理我也不太清楚。

好了，今天的内容就到这里，非常感谢以下两位读者的留言，后面还会有送书活动，到时候会有限送出R语言或者python学习的图书一本。