R中Ifelse语句的用法

Question

我有一个数据帧“ var”，我需要获得满足以下条件的向量输出。

基本上，我要执行的操作如下：如果psqi_2_sleepstart1的值小于15，则需要为comp21score分配值0； 在16到30之间，需要为comp21score分配值1； 在31到60之间，需要为comp21score分配值2，超过60的comp21score应当取值为3。例如，如果数据帧的psqi_2_sleepstart1值为16、40、6和10； 我希望输出为1、2、0、1。我正在使用ifelse语句，但是却收到错误消息，缺少参数“ yes”，没有默认值。

这是我的尝试：

for (i in 1: nrow(var)) {
ifelse (psqi_2_sleepstart1 <= 15) 
comp21score [i] <- 0
ifelse (psqi_2_sleepstart1 > 15 & psqi_2_sleepstart1 <= 30)
comp21score [i] <- 1
ifelse (psqi_2_sleepstart1 > 30 & psqi_2_sleepstart1 <= 60)
comp21score [i] <- 2
ifelse (psqi_2_sleepstart1 > 60)
comp21score [i] <- 3 
}
print (comp21score)

是否有人对我可能会使用的建议或如何避免此错误的建议？

谢谢！

Answer 1

只为踢球-这是一个case_when dplyr示例（如注释中所述）：

DF1 <- data.frame("score"= 0:20)

DF1 <- DF1 %>% mutate(value = case_when(
 score < 5 ~ 1,
 score >= 5| score < 10 ~ 2,
 score >= 10 ~ 3
 )
)

> DF1
    score value
1      0     1
2      1     1
3      2     1
.....

Answer 2

请改用以下布局：

x <- 2

if (x==0) {
  y <- log
} else if (x == 1) {
  y <- identity
} else if (x == 2) {
  y <- function(x) x^2
}