有没有一种方法可以根据条件向R添加新列

Question

当前在Azure中使用R。 我试图在我的数据框中创建一个新列，其值取决于现有列（“支柱总和”。

-> WithSumIDAPillars <-maml.mapInputPort（1）

-> WithSumIDAPillars [“ newcolumn”] <-不适用

-> WithSumIDAPillars $ newcolumn <-if（WithSumIDAPillars $支柱的总和<5 =“低”; WithSumIDAPillars $支柱的总和<= 6 <= 10 =“ Medium”; WithSumIDAPillars $支柱的总和<= 11 <= 16 =“高”

我需要创建一个新列来设置以下要求：如果“ PIllar的总和”值介于0-5 =低，6-11 =中和11-16 =高之间。

Answer 1

您是否使用过dplyr软件包？ 这样的事情行吗？

library("dplyr")

WithSumIDAPillars$newcolumn <- 
  case_when(
    WithSumIDAPillars$`Sum of Pillar` <= 6 ~ "Low",
    WithSumIDAPillars$`Sum of Pillar` <= 11 ~ "Medium",
    WithSumIDAPillars$`Sum of Pillar` <= 16 ~ "High",
    TRUE ~ NA_character_
  )

case_when()函数按顺序处理每种情况，直到~左侧的表达式之一的值为TRUE ，因此将最后一个语句用作默认值。

根据您的应用程序，使用下划线可以更轻松地为列sum_of_pillar命名。 这样可以更方便地使用管道（ %>% ）和mutate()函数来更简洁地编写内容：

WithSumIDAPillars <- 
  WithSumIDAPillars %>%
  mutate(
    newcolumn = case_when(
      sum_of_pillar <=  5 ~ "Low",
      sum_of_pillar <= 11 ~ "Medium",
      sum_of_pillar <= 16 ~ "High",
      TRUE ~ NA_character_
    )
  )

要了解更多关于dplyr，您可以访问网站： https://dplyr.tidyverse.org/或数据科学的书（免费）R： https://r4ds.had.co.nz/

希望这可以帮助！

Answer 2

对于case_when ，使用嵌套的if_else语句是另一种可能不太优雅的方法。 也许一个好处是，您不必像对case_when那样过多地关注顺序或语句。

library(tidyverse)

WithSumIDAPillars %>%
    mutate(new_col = if_else(`Sum of the Pillar` >= 0 & <= 5, "Low",
                             if_else(`Sum of the Pillar` >= 6 & <= 11, "Medium",
                                     if_else(`Sum of the Pillar` >= 12 & <= 18, "High",
                                             NA))))

注意：您的中上限和下上限之间存在重叠，因此我将下限的上限提高到了12。