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做多重插补 ， 实例操练

• 笔点酷玩|你买不到！秀一秀我的小米十周年定制帆布包，秘制味道
• 鲸鱼|味道鲜美，是鲸鱼挥之不去的伤疤，为什么藤壶不喜欢寄生鲨鱼？
• 百年磨一剑|手机处理器的各项参数都是什么意思？手把手教你
• 听风的生活|入口吃出烧烤店的味道，孜然青椒炒鸡胗
• 烟草味道|华为削减30-40%电视元件订单，无芯可用已波及到智慧屏
• 烟草味道|现阶段只想做共享电单车领域的老大，王兴没管那“三问”
• 烟草味道|就算微软断供也不怕了，终于等来了！倪光南院士又宣布好消息
• 阿里巴巴|我国的四大财团都有哪些？阿里腾讯靠边站，中国烟草都不行！
• 烟草味道|我是信息泄露了吗？，我在网上看到了自己的信息
• 烟草味道|快速又简单，微信视频号能关闭吗？3秒教你搞定