R语言如何通过快捷引用获取对象名并转换为字符串

常规deparse(substitute()方法只能捕获传入的表达式文本，无法解析列表索引对应的内部元素名称，以下函数可同时适配普通变量、列表[[索引、$索引的场景，且支持for循环调用：

object_name_as_string <- function(x) {
  # 捕获传入的调用表达式
  input_expr <- substitute(x)
  # 匹配列表索引的调用格式
  if (inherits(input_expr, "call") && as.character(input_expr[[1]]) %in% c("[[", "$")) {
    # 提取列表对象与索引值
    target_list <- eval(input_expr[[2]], envir = parent.frame())
    index <- input_expr[[3]]
    # 数字索引直接取对应位置的名称
    if (is.numeric(index)) {
      return(names(target_list)[as.integer(index)])
    }
    # 字符索引直接返回索引本身
    if (is.character(index)) {
      return(as.character(index))
    }
  }
  # 普通变量场景回退到原生方法
  return(deparse(input_expr))
}

效果测试 #

和期望的运行逻辑完全匹配：

all_mydata <- list(
  i_want_this_text_to_return_as_string = c(1,2,3,4),
  second_list = c("a","b","c")
)

object_name_as_string(all_mydata[[1]])
# 输出：[1] "i_want_this_text_to_return_as_string"

object_name_as_string(all_mydata$second_list)
# 输出：[1] "second_list"

for循环场景适配 #

可以直接在循环中调用生成文件名：

for (i in seq_along(all_mydata)) {
  # 生成对应图表文件名
  pic_name <- paste0(object_name_as_string(all_mydata[[i]]), ".png")
  # 绘图保存逻辑示例
  # png(pic_name)
  # plot(all_mydata[[i]])
  # dev.off()
  print(pic_name)
}
# 输出：
# [1] "i_want_this_text_to_return_as_string.png"
# [1] "second_list.png"

注意事项 #

• 当前版本支持单层列表的[[、$索引，多层嵌套索引可自行扩展解析逻辑
• 列表必须存在于函数调用的父环境中，临时生成的匿名列表无法解析名称

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