R数据框中双列均为NA时将Q7替换为1的实现方法

方法1：tidyverse（dplyr）实现 #

如果你习惯用tidyverse生态的工具，可以用dplyr::mutate结合条件判断来完成：

library(dplyr)

# 对Q7列进行条件替换
Metaverse <- Metaverse %>%
  mutate(Q7 = if_else(is.na(Q7) & is.na(Q8), "1", Q7))

逻辑说明：is.na(Q7) & is.na(Q8) 精准定位Q7和Q8同时为NA的行，这类行的Q7会被替换为字符串"1"（匹配原数据的<chr>类型），其他行的Q7保持原样，Q8全程不受影响。

方法2：基础R原生实现 #

如果不想加载额外包，用基础R的索引操作也能快速完成：

# 筛选出Q7和Q8均为NA的行号
target_rows <- which(is.na(Metaverse$Q7) & is.na(Metaverse$Q8))
# 给目标行的Q7赋值
Metaverse$Q7[target_rows] <- "1"

逻辑说明：which() 函数返回符合条件的行索引，直接通过索引对Q7列的对应位置赋值，操作简洁高效。

验证结果 #

执行上述代码后，查看前10行数据：

head(Metaverse[c("Q7","Q8")],10)

此时第5行的Q7会变为"1"，Q8仍保留NA，其余行的数值和原数据一致。

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