【孙老湿画图系列--第三弹】 散点图 Scatter diagram

俗话说字不入表，表不入图，在数据描述或者统计分析中，图形化是一个非常好的展示数据的形式，其中散点图有着非常重要的地位。

散点图，顾名思义就是在二维平面、或三维空间展示变量之间的关系。

今天小编就给大家展示一下散点图在ggplot2中的实现过程。

首先还是模拟数据的准备，使用模拟数据集faithful，并且添加一个分组信息，用head(faithful)查看：

data(faithful)

faithful$group <-ifelse(faithful$eruptions > 3, "A", "B")

ggplot2绘制散点图用的几何对象是geom_point()，首先手数据映射变量waiting映射给x轴，变量eruptions映射给y轴，变量group映射给col颜色：

p <- ggplot(faithful, aes(waiting,eruptions, col = group)) +

   geom_point()

p

ggplot2默认的主题是theme_gray()，而且字体略小，我更佳倾向于使用theme_bw()主题。所以接下来进行细节修改，主题的细节修改用theme()，包括坐标轴字体、颜色、大小等；顺便加上统计变换geom_smooth()，拟合的方法设定为loess回归:

p <- ggplot(faithful, aes(waiting,eruptions, col = group)) +

    geom_point() +

    geom_smooth(aes(col =NULL), method ="loess") +

    theme_bw() +

    theme(axis.title = element_text(size = 20),

          axis.text = element_text(size = 18,color = "black"))

p

有时候我们希望在分组的基础上添加confidence ellipses，只需设定stat_ellipse():

p <- ggplot(faithful, aes(waiting,eruptions, col = group)) +

   geom_point() +

   theme_bw() +

    stat_ellipse() +

   theme(axis.title = element_text(size = 20),

         axis.text = element_text(size = 18, color = "black"))

p

另外，还可添加文字注释（annotation），添加标题（labs），修改图例（guides），变换轴坐标（coord）等细节的修改。

ggplot2的细节修改参数非常多，但是实用方法都是大同小异，小伙伴们可以根据自己的喜好进行调节。

本期散点图就分享到这里！本周六，箱形图，孙老湿与你不见不散！

文字：孙怀博

编辑：Anymore