小编给大家分享一下Top50ggplot2Visualizations如何实现面积图，相信大部分人都还不怎么了解，因此分享这篇文章给大家参考一下，希望大家阅读完这篇文章后大有收获，下面让我们一起去了解一下吧！
公众号里有朋友提问——在散点图添加拟合曲线的图中如何添加一条虚线对角线？
就是由图A变成图B；应该有很多方法可以实现，这里我使用geom_segment()函数geom_segment()函数需要四个参数：起点位置坐标和终点位置坐标，默认是实线；通过linetype参数修改线型。
上面图片的实现代码
head(cars)
library(ggplot2)
p1<-ggplot(cars,aes(x=speed,y=dist))+
geom_point()+
geom_smooth(method = "lm",se=F)+
theme_bw()
p2<-ggplot(cars,aes(x=speed,y=dist))+
geom_point()+
geom_smooth(method = "lm",se=F)+
theme_bw()+
geom_segment(aes(x=0,xend=25,y=0,yend=120),
linetype=2)
ggpubr::ggarrange(p1,p2,ncol=2,labels = c("A","B"))
原文地址 http://r-statistics.co/Top50-Ggplot2-Visualizations-MasterList-R-Code.html
今天重复这个教程中的第二幅图 Area Chart
直译过来是面积图
面积图通常是用来展示某个指标和某个基准线来比较，比如股票的收益率（such as % return from stock）可以用geom_area()函数来实现。
完整代码
library(ggplot2)
library(quantmod)
economics$returns_perc <- c(0, diff(economics$psavert)/economics$psavert[-length(economics$psavert)])
ggplot(economics[1:100,],aes(date,returns_perc))+
geom_area(fill="darkgreen",alpha=0.8)+
theme_bw()+
theme(axis.text.x = element_text(angle=90,vjust=0.5))+
labs(title = "Area Chart",
subtitle = "Perc Returns for Personal Savings",
y="% Returns for Personal savings",
caption="Source: economics")
以上是“Top50ggplot2Visualizations如何实现面积图”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注亿速云行业资讯频道！
免责声明：本站发布的内容（图片、视频和文字）以原创、转载和分享为主，文章观点不代表本网站立场，如果涉及侵权请联系站长邮箱：is@yisu.com进行举报，并提供相关证据，一经查实，将立刻删除涉嫌侵权内容。
