简介

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

1. 分面一页多图

2. 基于分面的面积图绘制

3. 分面中的细节调整汇总

4. 分面中添加不同的直线

5. 基于分面的折线图绘制

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

教程

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

数据介绍

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

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

绘图

1. 分面

根据数据集，以 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. 添加表格

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)

3. 合并图形和表格

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

4. 美化图形

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))

小编有话说

• 上个月博士开题完成了，如果想正常毕业的话（3年学制），我只剩下一年多时间完成毕业论文了，时间还是非常紧张的。

• 最近在办理留学签证，不久就要去新加坡啦，有点兴奋也有点焦虑。