如何在ggplot注释表格中高亮各列最大值并整合为单个ggplot

要实现把高亮每列最大值的表格嵌入ggplot并得到单个ggplot对象，核心思路是将处理好的flextable转换为grid图形对象（grob），再通过ggplot的annotation_custom添加到图中。以下是完整可运行的代码示例：

步骤说明与代码 #

library(ggplot2)
library(flextable)
library(grid)

# 1. 准备绘图数据与基础ggplot
set.seed(123)
plot_data <- data.frame(x = 1:10, y = rnorm(10, 5, 2))
base_plot <- ggplot(plot_data, aes(x, y)) + 
  geom_point(color = "#2E86AB") + 
  theme_minimal()

# 2. 准备注释表格数据，用flextable高亮每列最大值
table_data <- data.frame(
  组别 = c("对照组", "实验组1", "实验组2"),
  均值 = c(4.8, 5.2, 4.5),
  标准差 = c(1.9, 2.1, 1.8)
)

# 创建flextable并设置最大值高亮（加粗）
highlighted_table <- flextable(table_data) %>%
  bold(i = ~ 均值 == max(均值), j = "均值") %>%
  bold(i = ~ 标准差 == max(标准差), j = "标准差") %>%
  theme_booktabs() %>%
  autofit()

# 3. 将flextable转换为grid grob对象
table_grob <- as_grob(highlighted_table)

# 4. 将表格grob添加到ggplot中，指定位置
final_plot <- base_plot +
  annotation_custom(
    grob = table_grob,
    xmin = 7, xmax = 10,  # 表格在x轴的位置范围
    ymin = 2, ymax = 4    # 表格在y轴的位置范围
  )

# 输出最终的单个ggplot对象
final_plot

关键细节 #

• as_grob()是flextable提供的转换函数，能将表格转为ggplot可识别的grid对象
• annotation_custom的xmin/xmax和ymin/ymax参数对应ggplot的坐标系范围，需根据你的图表布局调整位置
• 最终的final_plot是标准ggplot对象，支持后续的图层修改、保存（如ggsave()）等操作

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