如何用R将数据框中列3的NA替换为列4值并移位后续列

需求说明 #

你需要处理一个5列的数据集：

• 当列C为NA时，将列D的值赋给C，列E的值赋给D
• 所有行的列E最终统一设为NA

示例数据构造 #

先把你提供的示例数据用R代码还原：

df <- data.frame(
  A = c(1, 1, 1, 1, 1),
  B = c(1, 2, 2, 3, 2),
  C = c(2, NA, 3, NA, NA),
  D = c(3, 4, 4, 9, 5),
  E = c(NA, 5, NA, 7, 6)
)

方法一：基础R实现 #

不需要额外安装包，直接用原生语法处理：

# 标记出C列为NA的行位置
na_rows <- is.na(df$C)

# 对目标行替换C、D列的值
df$C[na_rows] <- df$D[na_rows]
df$D[na_rows] <- df$E[na_rows]

# 所有行的E列设为NA
df$E <- NA

方法二：tidyverse（dplyr）实现 #

如果你习惯用tidyverse生态，可借助dplyr包处理，先确保安装并加载包：

# 首次使用时安装包
install.packages("dplyr")
# 加载包
library(dplyr)

df <- df %>%
  # 临时标记C列是否为NA，避免修改后影响判断
  mutate(is_c_na = is.na(C)) %>%
  # 替换C列值
  mutate(C = ifelse(is_c_na, D, C)) %>%
  # 替换D列值
  mutate(D = ifelse(is_c_na, E, D)) %>%
  # 统一将E列设为NA
  mutate(E = NA) %>%
  # 删除临时标记列
  select(-is_c_na)

最终结果 #

运行上述代码后，数据集会变为你需要的格式：

A B C D  E
1 1 1 2 3 NA
2 1 2 4 5 NA
3 1 2 3 4 NA
4 1 3 9 7 NA
5 1 2 5 6 NA

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