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

本文主要介绍"如何用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)

 

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

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

 

关于 "如何用R语言的ggplot2做平滑的折线图" 就介绍到这。希望大家多多支持编程宝库。

下一节：数据一致性、分级存储、分层存储与信息生命周期管理的存储知识分析

编程技术 和 程序设计

本文主要介绍"数据一致性、分级存储、分层存储与信息生命周期管理的存储知识分析"，希望能够解决您遇到有关问题，下面我们一起来看这篇 "数据一致性、分级存储、分层存储与信息生命周期 ...