RMarkdown中条件语句报错求助：新变量创建失败

问题详情 #

尝试运行以下代码在数据框中生成新变量：

cp_phen_m$copd_dev_p2_gli = ifelse((cp_phen_m$copd_gold_p2_gli>0 & cp_phen_m$copd_gold_p1_gli==0 ), 1, 0) 

数据相关信息：

• 数据框cp_phen_m共10234条观测值
• 变量copd_gold_p2_gli：数值型，仅5668条非NA记录
• 变量copd_gold_p1_gli：数值型，共10168条非NA记录

此前用含NA的变量创建类似变量均成功，本次返回错误：

Error in `$<-.data.frame`:
! replacement has 0 rows, data has 10234
Backtrace:
 1. base::`$<-`(`*tmp*`, copd_dev_p2_gli, value = `<lgl>`)
 2. base::`$<-.data.frame`(`*tmp*`, copd_dev_p2_gli, value = `<lgl>`)
Execution halted

已尝试修改变量类型、使用dplyr的mutate函数，均未解决问题。当前使用R版本4.3.2（2023-10-31）。

排查与解决方法 #

1. 确认变量长度与数据框行数一致 #

错误提示替换值行数为0，大概率是参与计算的变量长度异常。先运行以下代码检查：

# 检查数据框行数
nrow(cp_phen_m)
# 检查两个变量的长度
length(cp_phen_m$copd_gold_p2_gli)
length(cp_phen_m$copd_gold_p1_gli)

如果变量长度与数据框行数（10234）不一致，说明变量被意外修改（比如误执行了subset且未赋值、数据读取不完整）。此时需重新读取原始数据，或通过dplyr::mutate直接在数据框内操作，避免单独修改变量。

2. 使用dplyr的case_when规范创建变量 #

改用case_when替代ifelse，语法更清晰且能自动处理数据框内的变量对齐：

library(dplyr)
# 必须将结果赋值回数据框
cp_phen_m <- cp_phen_m %>%
  mutate(copd_dev_p2_gli = case_when(
    copd_gold_p2_gli > 0 & copd_gold_p1_gli == 0 ~ 1,
    # 所有不满足条件的情况（包括NA）都赋值为0
    TRUE ~ 0
  ))

注意：如果运行mutate时未赋值回原数据框，不会修改原数据，但也不会出现行数不匹配错误——若之前用mutate仍报错，需检查是否在代码中错误引用了外部变量而非数据框内的变量。

3. 检查数据框是否损坏 #

若变量长度正常仍报错，可能是数据框结构损坏。尝试重新读取原始数据文件，再执行创建变量的代码，排除数据框被意外修改的可能。

4. 处理NA值的特殊情况 #

虽然NA不会直接导致行数为0，但如果需要明确处理NA（比如将NA对应的新变量设为0），可以在逻辑判断中加入!is.na()：

cp_phen_m <- cp_phen_m %>%
  mutate(copd_dev_p2_gli = case_when(
    !is.na(copd_gold_p2_gli) & !is.na(copd_gold_p1_gli) & copd_gold_p2_gli > 0 & copd_gold_p1_gli == 0 ~ 1,
    TRUE ~ 0
  ))

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