烟草味道|手把手教你绘图,R可视化:ggplot2初探( 二 )


p+geom_point(size=3)+geom_text(nudge_x=0.05)+scale_x_log10()+scale_y_log10()+xlab("Populationsinmillions(logscale)")+ylab("Totalnumberofmurders(logscale)")+ggtitle("USGunMurdersin2010")
第六步:给图设置颜色一般在geom_point或者其他的geometry中都会有col这个参数可以用来设置颜色:
p+geom_point(aes(col=region),size=3)
第七步:给图增加外部元素可以看到原来的图中是有一条线的:整个美国的平均谋杀率的线y=rx,因为我们的图是进行了log转化的 , 这个率相应的也得转化一下:
r%summarize(rate=sum(total)/sum(population)*10^6)%>%pull(rate)然后我们再用geom_abline在我们的图上加上这条线:
p+geom_point(aes(col=region),size=3)+geom_abline(intercept=log10(r))
p上面的代码改变了线的类型与颜色 , 并将其放在了底层 。
同时我们改一改原来图的主题 , 让我们的图更加高大上
为了享用更多的丰富主题我们安装ggthemes包 , 然后运行以下代码:
library(ggthemes)p+theme_economist()完美出图:
(站外链接发不了 , 请关注后私信回复“数据链接”获取本头条号所有使用数据)
往期内容:
R数据分析:如何用R做数据模拟
R数据分析:stargazer给你一个漂亮的可以直接发表的结果表格
R数据分析:在tidyverse中“do”起什么作用
R数据分析:RMarkdown:数据分析过程报告利器 , 你必须得学呀
R数据分析:如何用R做验证性因子分析及画图 , 实例操练
R数据分析:如何用R做多重插补 , 实例操练


推荐阅读