分面中添加不同表格

2023-12-17 11:35:01

简介

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

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

  1. 添加表格

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 数据集

  1. 合并图形和表格
gg + geom_table(data = df, aes(x = x, y = y, label = tbl),
                hjust = -0.2, vjust = 1.2) 

  1. 美化图形
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年学制),我只剩下一年多时间完成毕业论文了,时间还是非常紧张的。

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

文章来源:https://blog.csdn.net/qq_37379316/article/details/135041526
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。