ggplot2 作图

ggplot2是著名的R语言作图工具包，gg为Grammar of Graphics的缩写，体现了结构化作图的思想。ggplot2根据图层来作图是非常优秀的思想，官方文档在这里

1、数据(data)

ggplot2要求数据集格式是data.frame，指定数据集之后就可以直接查找需要的列

例

library(ggplot2)
# 选择mtcars数据集
ggplot(data = mtcars, mapping = aes(mpg, wt, color = cyl)) +
    geom_point()

2、映射(mapping)

映射使用aes()函数实现，是数据集中的数据关联到相应的图形属性过程中一种对应关系。

属性设置放在aes()里面，表示把数据根据某一属性分开处理；如果放在外面，则是统一处理

例

library(ggplot2)
# 离散分组着色数据类型要是factor
ggplot(data = mtcars, mapping = aes(mpg, wt, color = factor(am))) +
    geom_point(color = 'blue') # 统一设置颜色

二级映射实现分组

library(ggplot2)
ggplot(mtcars, aes(x = mpg, y = wt, color = factor(gear))) +
    geom_point(aes(shape = factor(carb)))

3、几何对象(geom) 与 统计变换(stats)

几何对象可以绘制不同类型的图，形式是gemo_xx

例

library(ggplot2)
ggplot(diamonds, aes(x = clarity, fill = cut)) +
    geom_bar(position = "dodge") # 并排排列

4、统计变换(stats)

统计图片中的额外信息，进行一定的计算

例

library(ggplot2)
ggplot(mtcars, aes(x = drat, y = disp, color = factor(gear))) +
    stat_sum() # 计数，stat_unique则可以去重

5、标度(scale) 与 坐标(coords)

可以修改坐标轴和图例的参数，作用：

• 修改图例
• 修改图形属性
• 修改坐标轴

例：

library(ggplot2)
ggplot(data = mtcars, aes(wt, mpg, color = qsec, shape = factor(vs))) +
    geom_point(size = 3) +
    annotate('text', x = 4, y = 25, label = 'text') + # 文本注释
    labs(x = 'xx', y = 'yy') + # 添加标题、坐标名
    ggtitle('Title') +
    geom_vline(xintercept = 3) + # 添加竖线
    geom_hline(yintercept = 20) + # 添加水平线
    xlim(3, 4) + # 添加范围
    scale_x_continuous(breaks = c(3, 3.25, 3.5, 3.75, 4),
                       labels = c('a', 'b', 'c', 'd', 'e')) + # 修改坐标轴
    coord_flip() # 互换坐标轴

7、分面(facet)

即在一个页面上自动摆放多幅图形，是ggplot2非常方便的一个地方，先划分数据集再作图

例

library(ggplot2)
# 单变量分面
ggplot(data = mtcars, aes(wt, mpg)) +
    geom_point() +
    facet_grid(vs~.) # 根据vs分面# 双变量分面
ggplot(data = mtcars, aes(wt, mpg)) +
    geom_point() +
    facet_grid(vs~am) # 根据vs和am分面# 轴刻度不一致，不同纵(Y)坐标刻度
# scale = 'free'是同时释放x和y轴
ggplot(data = mtcars, aes(wt, mpg)) +
    geom_point() +
    facet_grid(vs ~., scales = "free_y") # 释放坐标轴

8、主题(theme)

主题不多论述，一班使用ggthemr包会比较省事

不使用ggthemr

library(ggplot2)
small = diamonds[sample(nrow(diamonds), 1000), ]
ggplot(small, aes(x = carat, y = price, shape = cut, colour = color)) +
    geom_point() +
    scale_y_log10() +
    labs(title = 'price vs carat') +
    theme(plot.title = element_text(hjust = 0.5)) # 标题居中

使用ggthemr

library(ggplot2)
library(ggthemr)
ggthemr('pale')
small = diamonds[sample(nrow(diamonds), 1000), ]
ggplot(small, aes(x = carat, y = price, shape = cut, colour = color)) +
    geom_point() +
    scale_y_log10() +
    labs(title = 'price vs carat') +
    theme(plot.title = element_text(hjust = 0.5)) # 标题居中
ggthemr_reset()

个人感觉配色更好看一些~