分面中添加不同表格

简介

关于分面的推文，小编根据实际科研需求，已经分享了很多技巧。例如：

分面一页多图
基于分面的面积图绘制
分面中的细节调整汇总
分面中添加不同的直线
基于分面的折线图绘制

最近遇到了另一个需求：在分面中添加不同的表格。网上搜索后找到了不错的解决方案，见 stack overflow。本期就针对该问题，给出合适的解决方案。

教程

library(ggpp)
library(dplyr)
library(tibble)

数据介绍

以 mpg 数据集作为例子，经过数据预处理后，前几行数据如下所示：

myData <- filter(mpg, manufacturer == "audi" | manufacturer == "chevrolet")

绘图

分面

根据数据集，以 hwy 为 x 轴，cty 为 y 轴，绘制散点图并附上平滑曲线。最后以 manufacturer 进行分面，得到的结果如下：

gg <- ggplot(myData, aes(x=hwy, y=cty, colour=model)) + 
  facet_wrap(~ manufacturer) + 
  geom_point(size = 3) +
  geom_smooth(stat="identity")

添加表格

2.1 数据汇总，便于后续加入到表格中。

tb <- myData %>%
  group_by(manufacturer, model) %>%
  summarize(var1 = round(mean(displ)), var2 = round(mean(cyl))) %>%
  ungroup()

2.2 转化为 list 形式，便于后续使用。

tbs <- lapply(split(tb, tb$manufacturer), "[", -1)

2.3 转化为 tibble 格式，并加入相关信息

注意：这里的 manufacturer 与前面分面相对应。

df <- tibble(x = rep(-Inf, length(tbs)), 
             y = rep(Inf, length(tbs)), 
             manufacturer = levels(as.factor(tb$manufacturer)), 
             tbl = tbs)

df 数据集

合并图形和表格

gg + geom_table(data = df, aes(x = x, y = y, label = tbl),
                hjust = -0.2, vjust = 1.2)

美化图形

library(viridis)
gg + geom_table(data = df, aes(x = x, y = y, label = tbl),
                hjust = -0.2, vjust = 1.2,
                table.theme = ttheme_gtstripes) + 
  scale_color_viridis(discrete = TRUE) + theme_bw() +
  theme(panel.grid = element_blank(),
        legend.position = "bottom",
        legend.direction = "horizontal") +
  guides(color=guide_legend(nrow=1))