R语言if-else分支报错：条件长度大于1问题求助

错误原因 #

R的基础if语句仅支持单个逻辑值作为判断条件，但你定义的x <- 0:100是长度为101的向量，执行x<=39会返回一个长度相同的逻辑向量（每个元素对应x中值是否满足条件），这超出了if的处理范围，因此触发“第一个if条件的长度大于1”的错误。

修复方案 #

推荐使用R的矢量化判断函数，这类函数可以直接处理向量输入，逐个元素完成条件判断：

方案1：使用基础包的ifelse() #

x <- 0:100
grades <- ifelse(x <= 39, "Your grade is E(POOR)",
                 ifelse(x <= 49, "Your grade is D(BELOW AVERAGE)",
                        ifelse(x <= 59, "Your grade is C(AVERAGE)",
                               ifelse(x <= 69, "Your grade is B(ABOVE AVERAGE)",
                                      "CONGRATULATIONS you scored an A"))))
# 查看结果
grades

方案2：使用dplyr包的case_when()（语法更清晰） #

# 首次使用需安装dplyr包
install.packages("dplyr")
library(dplyr)

x <- 0:100
grades <- case_when(
  x <= 39 ~ "Your grade is E(POOR)",
  x <= 49 ~ "Your grade is D(BELOW AVERAGE)",
  x <= 59 ~ "Your grade is C(AVERAGE)",
  x <= 69 ~ "Your grade is B(ABOVE AVERAGE)",
  TRUE ~ "CONGRATULATIONS you scored an A"
)
# 查看结果
grades

注：不推荐用循环处理，因为R的矢量化操作效率远高于循环，代码也更简洁。

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