在lapply处理ggplot列表时如何用paste关联另一向量的对应值做标注

错误原因 #

你之前的写法中，lapply遍历传入的参数x是list1里存储的ggplot对象，本身属于列表类型，无法作为下标来索引向量somevec，因此触发类型错误。

可行解决方案 #

方案1：base R 索引遍历 #

直接遍历两个对象的对应位置下标，匹配赋值：

# seq_along会自动获取list1的长度，适配任意长度的列表
for(i in seq_along(list1)){
  list1[[i]] <- list1[[i]] + annotate("text", 
    label = round(somevec[i], 3), # round可按需控制小数位数，不需要可以去掉
    x = 4, y = 4)
}

方案2：base R mapply配对处理 #

如果倾向用apply风格的函数，用mapply同时遍历两个等长序列，注意加SIMPLIFY = FALSE保留列表格式：

list1 <- mapply(function(plt, val) {
  plt + annotate("text", label = round(val, 3), x = 4, y = 4)
}, plt = list1, val = somevec, SIMPLIFY = FALSE)

方案3：tidyverse purrr::map2 写法 #

如果你习惯tidyverse生态，用map2代码更简洁：

library(purrr)
list1 <- map2(list1, somevec, ~ .x + annotate("text", label = round(.y, 3), x = 4, y = 4))

以上三种方案处理后，你原来的批量导出代码可以直接复用，不需要修改。

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