如何在R语言的lapply中获取数据框列的完整名称？

首先明确原方法失效的原因：使用lapply(df, myfun)时，lapply会把数据框的每一列单独提取为向量传入函数，此时函数内部的x是独立向量，substitute(x)捕捉到的是lapply内部的循环变量表达式X[[i]]，而非原始的df$a或df$b，因此返回结果不符合预期。

以下是两种可行的解决方案：

方法一：遍历列名手动构造完整名称 #

直接遍历数据框的列名，结合数据框名称拼接出dataFrameName$varName格式的字符串：

# 定义函数，接收列名和数据框名称
myfun <- function(col_name, df_name) {
  paste0(df_name, "$", col_name)
}

# 调用方式：遍历df的列名并传入函数
lapply(names(df), myfun, df_name = "df")

执行结果：

$a
[1] "df$a"

$b
[1] "df$b"

方法二：自动获取数据框名称（无需手动传入） #

通过deparse(substitute(df))自动获取数据框的名称，再结合列名构造结果，更灵活：

# 定义包装函数，接收目标数据框
get_full_col_names <- function(df) {
  # 自动获取数据框的名称字符串
  df_name <- deparse(substitute(df))
  # 遍历列名拼接完整名称
  lapply(names(df), function(col) paste0(df_name, "$", col))
}

# 直接传入数据框调用
get_full_col_names(df)

执行结果与方法一完全一致。

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