使用apply函数与if-else语句计算R语言汇总得分

针对你提出的两个量表得分计算调整需求，这里提供适合新手的R代码实现：

1. 计算summary_score_task #

使用ifelse()函数逐行判断item8是否为NA，分别执行不同计算逻辑：

# 直接引用列名更直观，新手易理解
all_data_2$summary_score_task <- ifelse(
  is.na(all_data_2$item8),  # 判断item8是否为缺失值
  ((all_data_2$item11 + all_data_2$item12)/2)*3,  # item8为NA时的计算方式
  all_data_2$item8 + all_data_2$item11 + all_data_2$item12  # item8非NA时的原计算方式
)

2. 计算summary_score_act #

同样用ifelse()判断item21的缺失状态，你提到的ibr14/ibr25应为笔误，对应原代码里的item14/item25：

all_data_2$summary_score_act <- ifelse(
  is.na(all_data_2$item21),  # 判断item21是否为缺失值
  2*all_data_2$item14 + all_data_2$item25,  # item21为NA时的计算方式
  all_data_2$item14 + all_data_2$item21 + all_data_2$item25  # item21非NA时的原计算方式
)

新手友好说明 #

• is.na()：专门用于检测数据是否为缺失值（NA）
• ifelse()：R中处理逐元素条件判断的基础函数，语法为ifelse(判断条件, 条件为真时的结果, 条件为假时的结果)
• 直接引用列名比apply()更直观，后续排查问题更方便

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