温馨提示×

温馨提示×

您好,登录后才能下订单哦!

密码登录×
登录注册×
其他方式登录
点击 登录注册 即表示同意《亿速云用户服务条款》

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

发布时间:2021-07-28 09:25:12 来源:亿速云 阅读:1602 作者:chen 栏目:大数据

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

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

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

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

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

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

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

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

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

 首先是安装

直接install.packages()就可以了

install.packages("ggalt")
 
怎么用R语言的ggplot2做平滑的折线图  
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()
 
怎么用R语言的ggplot2做平滑的折线图  
image.png
 ggalt折线图
ggplot(df,aes(x=x,y=y))+
  geom_xspline()+
  geom_point(size=3)+
  theme_bw()
 
怎么用R语言的ggplot2做平滑的折线图

这个看起来就比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)
 
怎么用R语言的ggplot2做平滑的折线图

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

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

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

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

感谢各位的阅读,以上就是“怎么用R语言的ggplot2做平滑的折线图”的内容了,经过本文的学习后,相信大家对怎么用R语言的ggplot2做平滑的折线图这一问题有了更深刻的体会,具体使用情况还需要大家实践验证。这里是亿速云,小编将为大家推送更多相关知识点的文章,欢迎关注!

向AI问一下细节

免责声明:本站发布的内容(图片、视频和文字)以原创、转载和分享为主,文章观点不代表本网站立场,如果涉及侵权请联系站长邮箱:is@yisu.com进行举报,并提供相关证据,一经查实,将立刻删除涉嫌侵权内容。

AI