如何在R语言中为DataFrame指定列添加带特定值的行？

示例场景 #

原DataFrame：

df <- data.frame(
  A = c(0, 0, 2),
  B = c(1, 0, 1),
  C = c(4, 0, 0),
  D = c(2, 0, 0),
  row.names = c("Label1", "Label2", "Label3")
)

输出：

A B C D
Label1 0 1 4 2
Label2 0 0 0 0
Label3 2 1 0 0

需要添加名为New.Label的新行，仅给指定列（如C、D）赋值20，其余列默认0，最终结果：

A B  C  D
Label1    0 1  4  2
Label2    0 0  0  0
Label3    2 1  0  0
New.Label 0 0 20 20

大规模场景快捷实现（数百/数千列） #

针对从txt文件读取目标列名、处理超大型矩阵的场景，按以下步骤操作：

1. 读取目标列名
   假设你的txt文件每行存储一个目标列名，用readLines直接读取：

# 替换为你的txt文件路径
target_cols <- readLines("column_names.txt")

2. 初始化新行
   先创建一个与原DataFrame列数一致、默认值为0的向量，再批量给目标列赋值：

# 初始化新行，所有列默认0
new_row <- setNames(rep(0, ncol(df)), colnames(df))
# 给目标列设置指定值（示例为20，可按需修改）
new_row[target_cols] <- 20

3. 添加新行到DataFrame

基础R方法（内存友好，适合超大型矩阵）

# 合并原DataFrame与新行，再设置新行的名称
df_new <- as.data.frame(rbind(df, new_row))
rownames(df_new)[nrow(df_new)] <- "New.Label"

tidyverse方法（代码更简洁）

如果你习惯用tidyverse工具链，可通过以下方式实现（注意处理行名和缺失值）：

library(dplyr)

df_new <- df %>%
  rownames_to_column("Label") %>%
  add_row(
    Label = "New.Label",
    !!!setNames(rep(20, length(target_cols)), target_cols)
  ) %>%
  # 未指定的列自动填充0
  mutate(across(-Label, ~replace_na(., 0))) %>%
  column_to_rownames("Label")

注意事项 #

• 如果原DataFrame包含整数类型列，初始化时用rep(0L, ncol(df))确保类型匹配，避免自动转成数值型。
• 处理数千列的超大型矩阵时，优先选择基础R方法，减少中间数据转换的内存开销。

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