R语音ggplot2绘制好看的分组散点图

我们以iris数据集为例，该数据集包括花萼的长度和宽度，花瓣的长度和宽度，以及物种，如下图：

本文我们要绘制不同物种下花萼的长度和宽度的分布情况，以及二者之间的相关性关系。

1. 首先载入ggplot2包，

library(ggplot2)

2. 然后进行ggplot(data = NULL, mapping = aes(), ..., environment = parent.frame())绘制，在绘制中第一个参数是数据，第二个参数是数据映射，是绘制的全局变量，其中包含的参数有x,y,color,size,alpha,shape等。

例如：ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species))，然后通过快捷散点绘制

+geom_point(size = 2.0, shape = 16)，颜色代表不同的物种，如下图：

3. 上面显示的是最原始的散点绘制，通过颜色区分不同的物种，那么如何进行效果的提升呢？

首先是可以进行分面，使得不同物种的对比效果更为显著，这里使用+facet_wrap( ~ Species)，效果如下：

4. 通过分面后对比效果好了不少，如果想看下不同物种下花萼长度与宽度的关系呢？可以使用+geom_smooth(method = "loess")，效果图如下：

5. 通过上面的操作效果好了很多，但是还是感觉不够高大上，那我们可以使用library(ggthemes)这个包进行精修一下，通过修改theme，使用+theme_solarized()，效果如下：

还有更多的theme选择，例如+theme_wsj()，效果如下：

这样我们的图是不是高大上了很多呢，所以其实数据可视化也没有多难。最后给下源码：

library(ggthemes)
library(ggplot2)

ggplot(iris, aes(Sepal.Length, Sepal.Width, color = Species)) +
  geom_point(size = 2.0, shape = 16) +
  facet_wrap( ~ Species) +
  geom_smooth(method = "loess")+

  theme_wsj()

如果有需要有偿作图的，可以加我的QQ289251712联系我。