如何自动为数据框列表的列分配原数据框的变量名？

要自动将原数据框的变量名分配给l3列表中各数据框的Var1列，你可以通过以下几种方式实现：

方法一：使用Map函数匹配变量名 #

先定义原变量名向量，再通过Map遍历列表和变量名，逐一修改列名：

df = data.frame(x = c(1,0,0,0,1,1,1,NA), y = c(2,2,2,2,3,3,2,NA),
                z = c(1:7,NA), m = c(1,2,3,1,2,3,1,NA) )

df$x = factor(df$x)
df$y = factor(df$y)
df$m = factor(df$m)

l1 = list(df$x,df$y,df$m)
l2 = lapply(l1,table)
l3 = lapply(l2,as.data.frame)

# 定义对应变量名
var_names <- c("x", "y", "m")
# 批量修改列名
l3_renamed <- Map(function(df, col_name) {
  colnames(df)[1] <- col_name
  df
}, l3, var_names)

# 查看结果
l3_renamed

输出结果：

[[1]]
  x Freq
1 0    3
2 1    4

[[2]]
  y Freq
1 2    5
2 3    2

[[3]]
  m Freq
1 1    3
2 2    2
3 3    2

方法二：更自动化的提取与修改 #

如果希望减少手动指定列表元素的步骤，可以直接从数据框中提取目标列转为列表，这样变量名匹配更不易出错：

df = data.frame(x = c(1,0,0,0,1,1,1,NA), y = c(2,2,2,2,3,3,2,NA),
                z = c(1:7,NA), m = c(1,2,3,1,2,3,1,NA) )

df$x = factor(df$x)
df$y = factor(df$y)
df$m = factor(df$m)

# 直接提取目标列转为列表，自动关联变量名
target_cols <- c("x", "y", "m")
l1 <- as.list(df[, target_cols])
l2 <- lapply(l1, table)
l3 <- lapply(l2, as.data.frame)

# 修改列名
l3_renamed <- Map(function(df, col_name) {
  colnames(df)[1] <- col_name
  df
}, l3, target_cols)

后续如果需要调整处理的列，只需修改target_cols向量即可，无需改动列表创建的代码。

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