求助：如何在R中基于多条件修改数据集列值，其余值保持不变

正确代码实现 #

方式一：用dplyr（推荐，适合数据框批量操作） #

你的od_witnessed是因子类型，水平为小写的"yes"/"no"等，所以条件判断要严格匹配大小写：

library(dplyr)

# 修正num_witnessed列
visitdata <- visitdata %>%
  mutate(num_witnessed = case_when(
    # 满足条件时替换为1
    od_witnessed == "yes" & is.na(num_witnessed) ~ 1,
    # 其他所有情况保留原值
    TRUE ~ num_witnessed
  ))

# 计算总目睹 overdose 数量
total_witnessed <- sum(visitdata$num_witnessed, na.rm = TRUE)

方式二：用Base R（无需额外包） #

如果不想加载dplyr，直接用基础语法操作：

# 定位符合条件的行，将对应num_witnessed设为1
visitdata$num_witnessed[visitdata$od_witnessed == "yes" & is.na(visitdata$num_witnessed)] <- 1

# 求和（na.rm=TRUE忽略NA值）
total_witnessed <- sum(visitdata$num_witnessed, na.rm = TRUE)

你之前代码的问题解析 #

1. 第一段代码：

   • 写错了要修改的列：你改的是od_witnessed，但目标是num_witnessed
   • 条件判断用了赋值符号=，应该用相等判断==
   • 因子水平是小写"yes"，你用1指代水平不够直观，且缺少默认分支，未满足条件的行会被设为NA

2. 第二段代码：

   • 判断NA的语法错误：应该是is.na(visitdata$num_witnessed)，不是visitdata$num_witnessed(is.na)
   • 行索引和赋值的写法完全错误，不符合R的子集操作规则

3. 第三段代码：

   • if语句不能直接处理向量（数据框列是向量），要使用向量化的ifelse或索引操作
   • 判断相等用==而非=，且不能用字符串'NA'判断数值型NA，必须用is.na()

4. 第四段代码：

   • 核心问题：你的因子水平是小写"yes"，但代码里写的是"Yes"（首字母大写），条件不匹配导致替换失败

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