如何在R的ggplot2中添加随变量变化的数值表格？

annotate(geom = "table")是在绘图区域内部添加表格，受限于图表的坐标系，很难精准放置在图表下方的独立区域，推荐使用布局工具将图表和表格组合，以下是两种可靠方法：

方法一：使用patchwork包（推荐，语法更简洁） #

• 先安装并加载包：

install.packages("patchwork")
library(patchwork)
library(gridExtra) # 用于创建表格对象

• 处理表格数据并创建表格可视化对象：

# 提取目标数据并整理成易读格式
target_data <- as.data.frame(t(filter(tableData, usubjid == "01-701-1130")))
# 调整结构：添加指标列，重排顺序
target_data$指标 <- rownames(target_data)
target_data <- target_data[, c("指标", "数值")]
rownames(target_data) <- NULL

# 创建表格对象（去掉默认行名）
table_plot <- tableGrob(target_data, rows = NULL)

• 组合图表与表格，控制上下高度比例：

plot + table_plot +
  plot_layout(ncol = 1, heights = c(4, 1)) # 前一个数值对应图表高度，后一个对应表格

方法二：使用gridExtra包 #

• 安装加载包：

install.packages("gridExtra")
library(gridExtra)

• 数据处理同上，直接组合：

# 复用上面处理好的target_data和table_plot
grid.arrange(plot, table_plot, ncol = 1, heights = c(4, 1))

这两种方法都能将表格独立放置在图表下方，完美实现你要的效果。

内容的提问来源于stack exchange，提问作者Reaperz Reaperz