Create new variables with mutate_at while keeping the original ones

by

Update 2020-06 for dplyr 1.0.0

Starting in dplyr 1.0.0, the across() function supersedes the “scoped variants” of functions such as mutate_at(). The code should look pretty familiar within across(), which is nested inside mutate().

Adding a name to the function(s) you give in the list adds the function name as a suffix.

dataframe %>%
     mutate( across(contains('oo'), 
                    .fns = list(cat = ~ntile(., 2))) )

# A tibble: 6 x 5
  helloo ooooHH ahaaa helloo_cat ooooHH_cat
   <dbl>  <dbl> <dbl>      <int>      <int>
1      1      1   200          1          1
2      2      1   400          1          1
3      3      1   120          1          1
4      4      2   300          2          2
5      5      2   100          2          2
6      6      2   100          2          2

Changing the new columns names is a little easier in 1.0.0 with the .names argument in across(). Here is an example of adding the function name as a prefix instead of a suffix. This uses glue syntax.

dataframe %>%
     mutate( across(contains('oo'), 
                    .fns = list(cat = ~ntile(., 2)),
                    .names = "{fn}_{col}" ) )

# A tibble: 6 x 5
  helloo ooooHH ahaaa cat_helloo cat_ooooHH
   <dbl>  <dbl> <dbl>      <int>      <int>
1      1      1   200          1          1
2      2      1   400          1          1
3      3      1   120          1          1
4      4      2   300          2          2
5      5      2   100          2          2
6      6      2   100          2          2

Original answer with mutate_at()

Edited to reflect changes in dplyr. As of dplyr 0.8.0, funs() is deprecated and list() with ~ should be used instead.

You can give names to the functions to the list you pass to .funs to make new variables with the names as suffixes attached.

dataframe %>% mutate_at(vars(contains('oo')), .funs = list(cat = ~ntile(., 2)))

# A tibble: 6 x 5
  helloo ooooHH ahaaa helloo_cat ooooHH_cat
   <dbl>  <dbl> <dbl>      <int>      <int>
1      1      1   200          1          1
2      2      1   400          1          1
3      3      1   120          1          1
4      4      2   300          2          2
5      5      2   100          2          2
6      6      2   100          2          2

If you want it as a prefix instead, you could then use rename_at to change the names.

dataframe %>% 
     mutate_at(vars(contains('oo')), .funs = list(cat = ~ntile(., 2))) %>%
     rename_at( vars( contains( "_cat") ), list( ~paste("cat", gsub("_cat", "", .), sep = "_") ) )

# A tibble: 6 x 5
  helloo ooooHH ahaaa cat_helloo cat_ooooHH
   <dbl>  <dbl> <dbl>      <int>      <int>
1      1      1   200          1          1
2      2      1   400          1          1
3      3      1   120          1          1
4      4      2   300          2          2
5      5      2   100          2          2
6      6      2   100          2          2

Previous code with funs() from earlier versions of dplyr:

dataframe %>% 
     mutate_at(vars(contains('oo')), .funs = funs(cat = ntile(., 2))) %>%
     rename_at( vars( contains( "_cat") ), funs( paste("cat", gsub("_cat", "", .), sep = "_") ) )

More Related Contents:

  1. Gather multiple sets of columns
  2. How to get summary statistics by group
  3. Replace missing values (NA) with most recent non-NA by group
  4. Is there a dplyr equivalent to data.table::rleid?
  5. Getting the top values by group
  6. Replace NA with previous or next value, by group, using dplyr
  7. Filter rows which contain a certain string
  8. Calculate group mean, sum, or other summary stats. and assign column to original data
  9. Rolling mean (moving average) by group/id with dplyr
  10. Display / print all rows of a tibble (tbl_df)
  11. How to strsplit different number of strings in certain column by do function
  12. Finding Overlaps between interval sets / Efficient Overlap Joins
  13. R dplyr rolling sum
  14. How to remove rows with any zero value
  15. Select columns based on string match – dplyr::select
  16. Delete columns/rows with more than x% missing
  17. How to aggregate a dataframe by week?
  18. adding default values to item x group pairs that don’t have a value (df %>% spread %>% gather seems strange)
  19. dplyr issues when using group_by(multiple variables)
  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. Spreading a two column data frame with tidyr
  24. R dplyr rowwise mean or min and other methods?
  25. R: Using a string as an argument to mutate verb in dplyr
  26. Repeating rows of data.frame in dplyr [duplicate]
  27. Run a custom function on a data frame in R, by group
  28. Dealing with spaces and “weird” characters in column names with dplyr::rename()
  29. Filtering rows in R unexpectedly removes NAs when using subset or dplyr::filter
  30. Count how many values in some cells of a row are not NA (in R)

Leave a Comment