如何基于R语言DataFrame的unique列值插入指定新行？

要在unique列值为"cgf"的行后插入新行，无需依赖固定行索引，按以下步骤操作：

1. 统一列名并补全缺失列
   新行里的列名ID要和原数据的id统一，同时补全原数据的所有列，未指定的列自动用NA留空：

   # 修正新行列名并匹配原数据结构
   new_row <- data.frame(
     id = 3,  # 改成数值型和原数据匹配，也可写为"3"，按需调整
     unique = "lpq",
     test2 = "alive",
     stringsAsFactors = FALSE
   )
   # 对齐原数据的列，缺失列填充NA
   new_row <- new_row[, names(data)]
   

2. 定位插入位置
   通过unique列的取值找到目标行，插入位置为该行的下一行：

   insert_pos <- which(data$unique == "cgf") + 1
   

3. 拆分原数据并插入新行
   将原数据拆分为插入位置前的部分、新行、插入位置后的部分，用rbind合并：

   result_data <- rbind(
     data[1:(insert_pos-1), ],
     new_row,
     data[insert_pos:nrow(data), ]
   )
   

执行完成后，result_data就是目标数据框，未指定的列（如test1、test3）会显示NA（空值）。

如果原数据中unique列存在多个"cgf"值，which会返回多个索引，若只需插入到第一个匹配行后，可修改为insert_pos <- which(data$unique == "cgf")[1] + 1。

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