ggplot2 | 图形分面函数

图形分面是指根据某个或某些分类变量（不一定是因子类型）将绘图数据分成若干子集并分别绘图。

ggplot2绘图系统中有两个专门的分面函数：

• facet_wrap()

• facet_grid()

1 facet_wrap()

facet_wrap()函数的语法结构如下：

facet_wrap(
  facets, nrow = NULL, ncol = NULL,
  scales = "fixed", shrink = TRUE,
  labeller = "label_value",
  as.table = TRUE, 
  drop = TRUE, dir = "h",
  strip.position = "top"
)

facets：分面变量；使用vars()函数加以引用。

不添加任何变量：

library(ggplot2)
data("mtcars")
ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars())

添加分面变量：

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars(gear))

nrow、ncol：控制子图排列的行数或列数。

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars(gear), nrow = 2)

scales：控制子图坐标刻度是否保持一致。fixed表示子图的横、纵坐标都保持一致；free表示各子图坐标刻度自由变化；free_x、fix_y分别表示允许横、纵坐标自由变化。

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars(gear), nrow = 2,
             scales = "free_y")

labeller：修改子图标题格式。

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars(carb), nrow = 2,
             labeller = label_both)

as.table：修改子图排列顺序。TRUE表示分面变量数值越大对应的子图越靠近左下方；FALSE表示数值越大越靠近右上方。

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars(carb), nrow = 2,
             labeller = label_both,
             as.table = F)

drop：当分面变量是因子类型时，是否删除没有对应样本的因子水平。

library(tidyverse)
mtcars %>%
  mutate(carb2 = factor(carb, levels = 1:8)) %>%
  ggplot(aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars(carb2), nrow = 2,
             labeller = label_both,
             drop = F)

dir：控制子图排列顺序。h（默认值）表示水平排序，即先左右、后上下；v表示垂直排序，即先上下、后左右。

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars(carb), nrow = 2,
             labeller = label_both,
             dir = "v")

strip.position：控制子图标题位置（top、bottom、left、right）。

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_wrap(vars(carb), nrow = 2,
             labeller = label_both,
             strip.position = "bottom")

2 facet_grid()

facet_grid()函数的语法结构如下：

facet_grid(
  rows = NULL, cols = NULL,
  scales = "fixed", space = "fixed",
  shrink = TRUE, labeller = "label_value",
  as.table = TRUE, 
  drop = TRUE, margins = FALSE
)

行分面变量：

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_grid(rows = vars(gear),
             labeller = label_both)  

## 或者
ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_grid(gear ~ .,
             labeller = label_both)

列分面变量：

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_grid(cols = vars(vs),
             labeller = label_both)  

## 或者 
ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_grid(. ~ vs,
             labeller = label_both)

行、列同时进行分面：

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_grid(rows = vars(gear),
             cols = vars(vs),
             labeller = label_both)

## 或者 
ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_grid(gear ~ vs,
             labeller = label_both)

margins：添加边际图形（var:(all)）：

ggplot(mtcars, aes(mpg, qsec)) + 
  geom_point() +
  facet_grid(gear ~ vs,
             margins = c("gear", "vs"),
             labeller = label_both)