qsuqn
pv <- c(1,1,2,1,1,3,15,7,18)
results <- vector(length = length(pv))
results <- ifelse(pv < 5 | pv == 5, "初级用户", ifelse(pv < 15 | pv == 15, "中级用户", "高级用户"))
results
#> [1] "初级用户" "初级用户" "初级用户" "初级用户" "初级用户" "初级用户" "中级用户"
#> [8] "中级用户" "高级用户"
#或者:
pv <- c(1,1,2,1,1,3,15,7,18)
results <- vector(length = length(pv))
results[pv < 5 | pv == 5] <- "初级用户"
results[pv > 5 & pv < 15 | pv == 15] <- "中级用户"
results[pv > 15] <- "高级用户"
results
#> [1] "初级用户" "初级用户" "初级用户" "初级用户" "初级用户" "初级用户" "中级用户"
#> [8] "中级用户" "高级用户"
一看提示“找不到对象”,就莫名地感到欢乐。