R语言用B1+B2/2结果替换dataframe B4列NA的实现方法

实现方案 #

方法1：基础R实现

直接对B4列的缺失值位置赋值即可，代码如下：

# 请将代码中的df替换为你自己的dataframe名称
df$B4[is.na(df$B4)] <- df$B1[is.na(df$B4)] + df$B2[is.na(df$B4)] / 2

方法2：dplyr包实现（适配tidyverse工作流）

用mutate()结合判断语句完成替换，代码可读性更高：

library(dplyr)

df <- df %>%
  mutate(
    # 以下两种写法二选一即可
    # 写法1：用if_else显式判断
    B4 = if_else(is.na(B4), B1 + B2/2, B4)
    # 写法2：用coalesce更简洁，自动取第一个非NA的值
    # B4 = coalesce(B4, B1 + B2/2)
  )

注意事项 #

如果对应行的B1或B2本身也存在缺失值，计算结果仍会为NA，若需要处理这类场景可以额外补充判断规则。

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