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

发布时间：2021-07-28 09:25:12 阅读：1642 作者：chen 栏目：大数据

开发者测试专用服务器限时活动，0元免费领，库存有限，领完即止！点击查看>>

这篇文章主要讲解了“怎么用R语言的ggplot2做平滑的折线图”，文中的讲解内容简单清晰，易于学习与理解，下面请大家跟着小编的思路慢慢深入，一起来研究和学习“怎么用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))

ggplot2折线图

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

ggalt折线图

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)