R语言的ggplot2做平滑的折线图简单小例子

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

在文章的留言区给出了两种答案

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

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

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

image.png

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

image.png

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

首先是安装

直接install.packages()就可以了

install.packages("ggalt")

image.png

一个简单的小例子

构造一份数据

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

ggplot2折线图

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

image.png

ggalt折线图

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

image.png

这个看起来就比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)

image.png

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

好了，今天的内容就到这里

欢迎大家关注我的公众号
小明的数据分析笔记本