如何为R语言DataFrame添加含自身名称的列（无需手动输入）

当然可以实现，核心思路是利用R的语言特性捕获DataFrame的对象名称，无需手动输入。这里提供两种常用方案：

方案1：自定义函数处理单个DataFrame #

写一个简单函数，通过deparse(substitute())捕获传入的DataFrame名称，自动添加到新列中：

add_df_name <- function(df) {
  # 捕获传入的DataFrame对象名称并转为字符串
  df_name <- deparse(substitute(df))
  df$name <- df_name
  return(df)
}

# 使用示例
my_own_df_name <- data.frame(x = c(1,2,3))
my_own_df_name <- add_df_name(my_own_df_name)

# 查看结果
print(my_own_df_name)

运行后my_own_df_name会自动新增一列name，值为"my_own_df_name"，完全符合需求。

方案2：批量处理多个DataFrame（列表形式） #

如果有多个DataFrame需要处理，可以把它们放进列表，利用列表的名称批量添加：

# 先创建多个DataFrame并存入列表
df_list <- list(
  sales_df = data.frame(amount = c(100, 200, 300)),
  user_df = data.frame(age = c(25, 30, 35))
)

# 批量添加名称列
df_list <- lapply(names(df_list), function(df_name) {
  current_df <- df_list[[df_name]]
  current_df$name <- df_name
  current_df
})

# 恢复列表名称（可选）
names(df_list) <- c("sales_df", "user_df")

这样每个DataFrame都会自动带上对应的列表项名称作为name列的值。

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