如何向apply函数中的嵌套函数传递列名？

我明白你的困惑了——你想把原数据集的列名传给apply内部的嵌套函数，而不是每次处理行时都重复输出列名（就像你之前试的那样，得到一堆重复的列名列表）。咱们一步步来理清楚：

为什么你的原始代码会重复输出列名 #

你之前执行的apply(mtcars, 1, function(x) print(names(x)))，本质上是按行迭代mtcars，每一次迭代的x都是一行数据（以带名字的向量形式存在）。所以每次调用names(x)都会返回完整的原列名，然后打印出来——mtcars有32行，自然就会输出32次一模一样的列名列表，这就是你看到“列表的列表”的原因。

两种解决方案，看你的需求来选 #

1. 只是想获取/打印列名一次？直接在apply外面操作 #

如果你的目标只是打印原数据集的列名一次，根本不需要把这个逻辑放到apply里，直接在外面调用就行：

print(names(mtcars))

之后再正常执行你的apply行处理逻辑就好。

2. 需要在每行处理中用到列名？把列名作为额外参数传递 #

如果你的嵌套函数需要用列名来做实际的行处理（比如根据列名筛选列、配对列名和值等），可以通过apply的**可变参数（...）**把列名传递给嵌套函数。

举个具体的例子：假设你想在处理每行时，输出某列名对应的行值：

首先定义需要列名的函数：

# 定义一个需要列名的行处理函数
process_row <- function(row_vec, original_colnames) {
  # 示例：输出第一列的列名和对应行的值
  result <- paste("当前行的", original_colnames[1], "值为：", row_vec[original_colnames[1]])
  return(result)
}

然后调用apply时，把列名作为额外参数传进去：

# 传递原数据集的列名给嵌套函数
apply(mtcars, 1, process_row, original_colnames = names(mtcars))

再举个更实用的例子：统计每行中列名包含"m"的列的总和：

sum_m_columns <- function(row, col_names) {
  # 筛选列名含"m"的列
  target_cols <- grep("m", col_names, ignore.case = TRUE)
  # 计算这些列的行总和
  sum(row[target_cols])
}

# 传递列名参数，执行apply
apply(mtcars, 1, sum_m_columns, col_names = names(mtcars))

这样一来，你的嵌套函数就能直接拿到原数据集的完整列名集合，不用每次从行向量里提取，也不会重复输出列名啦。

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