如何从ggplot图例对象中提取图例标签文本？

当你仅持有通过ggpubr::get_legend()获取的图例对象、无原始数据时，可通过以下方法提取图例标签文本：

方法1：遍历图例元素筛选标签 #

# 提取所有标签文本
legend_labels <- sapply(legend$grobs, function(grob) {
  if (grob$name == "label") grob$label
})

# 过滤空值并整理结果
legend_labels <- unlist(legend_labels[!sapply(legend_labels, is.null)])

方法2：直接定位标签元素 #

# 找到存储标签的grob位置
label_grob_index <- which(sapply(legend$grobs, function(x) x$name) == "label")
# 提取标签文本
legend_labels <- legend$grobs[[label_grob_index]]$label

针对你的示例案例，运行上述代码后，legend_labels会返回字符向量c("4", "6", "8")。

原理说明：ggpubr::get_legend()返回的是gtable对象，其内部的grobs列表包含图例的所有可视化元素，其中名称为label的grob对象存储了图例的文本标签，直接访问其label属性即可获取目标内容。

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