如何在R语言中用指定行替换数据框的所有选中行

问题原因 #

你当前的代码未达到预期效果，大概率是因为目标列的数据类型不匹配（比如因子型字符列），导致R的自动循环填充机制未正常触发。

可行解决方法 #

方法1：修复数据类型后直接赋值 #

如果PROD和Comment是因子类型，先转成字符型再赋值，R会自动把df2的单行值循环填充到df1的所有行：

# 转换因子列为字符列
df1[c("PROD", "Comment")] <- lapply(df1[c("PROD", "Comment")], as.character)
df2[c("PROD", "Comment")] <- lapply(df2[c("PROD", "Comment")], as.character)

# 直接赋值
df1[c("PROD", "Num", "Comment")] <- df2[c("PROD", "Num", "Comment")]

方法2：手动重复单行数据匹配行数 #

如果自动填充失效，手动生成和df1行数一致的df2副本再赋值：

# 重复df2的行，次数等于df1的总行数
df2_repeated <- df2[rep(1:nrow(df2), nrow(df1)), ]

# 替换目标列
df1[c("PROD", "Num", "Comment")] <- df2_repeated[c("PROD", "Num", "Comment")]

方法3：tidyverse风格写法（需dplyr包） #

如果你习惯用tidyverse工具链，可以用mutate+across批量替换：

library(dplyr)

df1 <- df1 %>%
  mutate(across(c(PROD, Num, Comment), ~ df2[[cur_column()]]))

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