Categorize numeric variable with mutate

by

The ggplot2 package has 3 functions that work well for these tasks:

  • cut_number(): Makes n groups with (approximately) equal numbers of observation
  • cut_interval(): Makes n groups with equal range
  • cut_width: Makes groups of width width

My go-to is cut_number() because this uses evenly spaced quantiles for binning observations. Here’s an example with skewed data.

library(tidyverse)

skewed_tbl <- tibble(
    counts = c(1:100, 1:50, 1:20, rep(1:10, 3), 
               rep(1:5, 5), rep(1:2, 10), rep(1, 20))
    ) %>%
    mutate(
        counts_cut_number   = cut_number(counts, n = 4),
        counts_cut_interval = cut_interval(counts, n = 4),
        counts_cut_width    = cut_width(counts, width = 25)
        ) 

# Data
skewed_tbl
#> # A tibble: 265 x 4
#>    counts counts_cut_number counts_cut_interval counts_cut_width
#>     <dbl> <fct>             <fct>               <fct>           
#>  1      1 [1,3]             [1,25.8]            [-12.5,12.5]    
#>  2      2 [1,3]             [1,25.8]            [-12.5,12.5]    
#>  3      3 [1,3]             [1,25.8]            [-12.5,12.5]    
#>  4      4 (3,13]            [1,25.8]            [-12.5,12.5]    
#>  5      5 (3,13]            [1,25.8]            [-12.5,12.5]    
#>  6      6 (3,13]            [1,25.8]            [-12.5,12.5]    
#>  7      7 (3,13]            [1,25.8]            [-12.5,12.5]    
#>  8      8 (3,13]            [1,25.8]            [-12.5,12.5]    
#>  9      9 (3,13]            [1,25.8]            [-12.5,12.5]    
#> 10     10 (3,13]            [1,25.8]            [-12.5,12.5]    
#> # ... with 255 more rows

summary(skewed_tbl$counts)
#>    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
#>    1.00    3.00   13.00   25.75   42.00  100.00

# Histogram showing skew
skewed_tbl %>%
    ggplot(aes(counts)) +
    geom_histogram(bins = 30)


# cut_number() evenly distributes observations into bins by quantile
skewed_tbl %>%
    ggplot(aes(counts_cut_number)) +
    geom_bar()


# cut_interval() evenly splits the interval across the range
skewed_tbl %>%
    ggplot(aes(counts_cut_interval)) +
    geom_bar()


# cut_width() uses the width = 25 to create bins that are 25 in width
skewed_tbl %>%
    ggplot(aes(counts_cut_width)) +
    geom_bar()

Created on 2018-11-01 by the reprex package (v0.2.1)

More Related Contents:

  1. Gather multiple sets of columns
  2. How to get summary statistics by group
  3. Is there a dplyr equivalent to data.table::rleid?
  4. Replace NA with previous or next value, by group, using dplyr
  5. Filter rows which contain a certain string
  6. Calculate group mean, sum, or other summary stats. and assign column to original data
  7. Rolling mean (moving average) by group/id with dplyr
  8. Programming with dplyr using string as input
  9. Count number of rows by group using dplyr
  10. Pass a vector of variable names to arrange() in dplyr
  11. Efficient way to filter one data frame by ranges in another
  12. R – add column that counts sequentially within groups but repeats for duplicates
  13. Add NAs to make all list elements equal length
  14. Select columns based on string match – dplyr::select
  15. Delete columns/rows with more than x% missing
  16. How to aggregate a dataframe by week?
  17. adding default values to item x group pairs that don’t have a value (df %>% spread %>% gather seems strange)
  18. dplyr – using mutate() like rowmeans()
  19. dplyr piping data – difference between `.` and `.x`
  20. dplyr mutate rowwise max of range of columns
  21. dplyr: lead() and lag() wrong when used with group_by()
  22. Reorder rows using custom order
  23. Difference between rbind() and bind_rows() in R
  24. Spreading a two column data frame with tidyr
  25. R dplyr rowwise mean or min and other methods?
  26. Run a custom function on a data frame in R, by group
  27. Dealing with spaces and “weird” characters in column names with dplyr::rename()
  28. Get name of dataframe passed through pipe in R
  29. Filtering rows in R unexpectedly removes NAs when using subset or dplyr::filter
  30. resetting cumsum if value goes to negative in r

Leave a Comment