13518219792
小编给大家分享一下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如何实现面积图”这篇文章的所有内容，感谢各位的阅读！相信大家都有了一定的了解，希望分享的内容对大家有所帮助，如果还想学习更多知识，欢迎关注创新互联行业资讯频道！
