Create column with grouped values based on another column

by

Define vectors with the levels and labels and then use cut on the b column:

levels <- c(-Inf, 60, 70, 80, 90, Inf)
labels <- c("Fail", "Poor", "fair", "very good", "excellent")
grades %>% mutate(x = cut(b, levels, labels = labels))
    a   b         x
1   1  66      Poor
2   2  78      fair
3   3  97 excellent
4   4  46      Fail
5   5  89 very good
6   6  57      Fail
7   7  80      fair
8   8  98 excellent
9   9 100 excellent
10 10  93 excellent
11 11  59      Fail
12 12  51      Fail
13 13  69      Poor
14 14  75      fair
15 15  72      fair
16 16  48      Fail
17 17  74      fair
18 18  54      Fail
19 19  62      Poor
20 20  64      Poor
21 21  88 very good
22 22  70      Poor
23 23  85 very good
24 24  58      Fail
25 25  95 excellent
26 26  56      Fail
27 27  65      Poor
28 28  68      Poor
29 29  91 excellent
30 30  76      fair
31 31  82 very good
32 32  55      Fail
33 33  96 excellent
34 34  83 very good
35 35  61      Poor
36 36  60      Fail
37 37  77      fair
38 38  47      Fail
39 39  73      fair
40 40  71      fair

Or using data.table:

library(data.table)
setDT(grades)[, x := cut(b, levels, labels)]

Or simply in base R:

grades$x <- cut(grades$b, levels, labels)

Note

After taking another close look at your initial approach, I noticed that you would need to include right = FALSE in the cut call, because for example, 90 points should be “excellent”, not just “very good”. So it is used to define where the interval should be closed (left or right) and the default is on the right, which is slightly different from OP’s initial approach. So in dplyr, it would then be:

grades %>% mutate(x = cut(b, levels, labels, right = FALSE))

and accordingly in the other options.

More Related Contents:

  1. Can dplyr package be used for conditional mutating?
  2. dplyr if_else() vs base R ifelse()
  3. Summarizing multiple columns with dplyr? [duplicate]
  4. Relative frequencies / proportions with dplyr
  5. Unique rows, considering two columns, in R, without order
  6. standard evaluation in dplyr: summarise a variable given as a character string
  7. Use variable names in functions of dplyr
  8. Create new variables with mutate_at while keeping the original ones
  9. How to interpret dplyr message `summarise()` regrouping output by ‘x’ (override with `.groups` argument)?
  10. Finding percentage in a sub-group using group_by and summarise
  11. Make a group_indices based on several columns
  12. Using spread with duplicate identifiers for rows
  13. filter for complete cases in data.frame using dplyr (case-wise deletion)
  14. dplyr filter with condition on multiple columns
  15. dplyr – using column names as function arguments
  16. Fill missing dates by group
  17. dplyr – filter by group size
  18. dplyr::group_by_ with character string input of several variable names
  19. How to parametrize function calls in dplyr 0.7?
  20. How to filter rows based on difference in dates between rows in R?
  21. Unexpected ‘else’ in “else” error
  22. R – Group by variable and then assign a unique ID [duplicate]
  23. R sum a variable by two groups [duplicate]
  24. if else condition in ggplot to add an extra layer
  25. Join two data frames in R based on closest timestamp
  26. data.table row-wise sum, mean, min, max like dplyr?
  27. Update/Replace Values in Dataframe with Tidyverse Join
  28. dplyr: put count occurrences into new variable [duplicate]
  29. Add row in each group using dplyr and add_row()
  30. How to replace certain values in a specific rows and columns with NA in R?

Leave a Comment