创建一个R级别的新变量

Question

我是R的新手，目前正努力学习这门语言。我想要做的是创建一个具有三个级别的新变量（如果这是有道理的）。我试图在同一个新变量中显示增长<= 0％，<1％和> = 1％（如果可能的话，请告诉我）。

到目前为止，我试过这个：

pincome$perctchng<- ifelse(pincome$perctchng<=0,ifelse(pincome$perctchng<1,
              ifelse(pincome$perctchng>=1,"level 1","level 2","level 3")))

这是我尝试过的代码。我知道这是错的，但任何建议都是正确的方向受到欢迎。

谢谢！

Answer 1

嵌套的ifelse陈述几乎从来都不是正确的答案。他们难以阅读和脆弱。您的目标是将连续值（perctchng中的数值）转换为分类值（“级别1”等）。 R的cut功能非常适用于此：

pincome <- data.frame(perctchng = c(-2, -1, 0, 1, 2, 5))

  perctchng
1        -2
2        -1
3         0
4         1
5         2
6         5

pincome$level <- cut(pincome$perctchng, c(-Inf, 0, 1, Inf), c('level 1', 'level 2', 'level 3'))

  perctchng   level
1        -2 level 1
2        -1 level 1
3         0 level 1
4         1 level 2
5         2 level 3
6         5 level 3

Answer 2

您的解决方案几乎是好的，您的语法不正确：

library(dplyr)

pincome <- data.frame(perctchng = c(-2, -1, 0, 1, 2, 5))

pincome %>%
  mutate(perctchng_level = ifelse(perctchng <= 0, "level 1",
                            ifelse(perctchng < 1, "level 2",
                                   ifelse(perctchng >= 1, "level 3", NA))))

结果：

  perctchng perctchng_level
1        -2         level 1
2        -1         level 1
3         0         level 1
4         1         level 3
5         2         level 3
6         5         level 3

Answer 3

一个整合的解决方案：

pincome $ perct chng < - ifelse（pincome $ perc chng <= 0，ifelse（pincome $ perct chng <1，ifelse（pincome $ perctchng> = 1，“level 1”，“level 2”，“level 3”））） ）

library(tidyverse)
pincome <- pincome %>%
           mutate(perctchng = case_when(perctchng <= 0 ~ "level 1",
                                        perctchng < 1 ~ "level 2",
                                        perctchng >= 1 ~ "level 3",
                                        TRUE ~ NA_character_)