烟草味道|R可视化：ggplot2初探，手把手教你绘图( 二 ) 其实最基本的Rbase的画图能力已经非常

目前我们看图的左下角还是有点拥挤，我们需要对图像进行log转换：
p + geom_point(size = 3) +geom_text(nudge_x = 0.05) +scale_x_continuous(trans = "log10") +scale_y_continuous(trans = "log10")
然后我们再给图加上标签和题目：
【烟草味道|R可视化：ggplot2初探，手把手教你绘图】p + geom_point(size = 3) +geom_text(nudge_x = 0.05) +scale_x_log10() +scale_y_log10() +xlab("Populations in millions (log scale)") +ylab("Total number of murders (log scale)") +ggtitle("US Gun Murders in 2010")
可以看到基本上像那么回事了。我们继续

第六步：给图设置颜色

一般在geom_point或者其他的geometry中都会有col这个参数可以用来设置颜色：
p + geom_point(aes(col=region), size = 3)

可以看到， ggplot2自动给我们加好了图例。棒棒哒。

第七步：给图增加外部元素

可以看到原来的图中是有一条线的：整个美国的平均谋杀率的线y=rx,因为我们的图是进行了log转化的，这个率相应的也得转化一下：
r <- murders %>%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 <- p + geom_abline(intercept = log10(r), lty = 2, color = "darkgrey") +geom_point(aes(col=region), size = 3)上面的代码改变了线的类型与颜色，并将其放在了底层。
同时我们改一改原来图的主题，让我们的图更加高大上
为了享用更多的丰富主题我们安装ggthemes包，然后运行以下代码：
library(ggthemes)p + theme_economist()完美出图：

小结今天手把手教大家画了一个比较美观的图，希望大家可以自己试一试。感谢大家耐心看完。发表这些东西的主要目的就是督促自己，希望大家关注评论指出不足，一起进步。内容我都会写的很细，用到的数据集也会在原文中给出链接，你只要按照文章中的代码自己也可以做出一样的结果，一个目的就是零基础也能懂，因为自己就是什么基础没有从零学Python和R的，加油。
（站外链接发不了，请关注后私信回复“数据链接”获取本头条号所有使用数据）
往期内容：