R spreading multiple columns with tidyr [duplicate]

by

Here’s a possible both simple and very efficient solution using data.table 

library(data.table) ## v >= 1.9.6
dcast(setDT(df), month ~ student, value.var = c("A", "B")) 
#    month Amy_A Bob_A Amy_B Bob_B
# 1:     1     9     8     6     5
# 2:     2     7     6     7     6
# 3:     3     6     9     8     7

Or a possible tidyr solution

df %>% 
  gather(variable, value, -(month:student)) %>%
  unite(temp, student, variable) %>%
  spread(temp, value)

#   month Amy_A Amy_B Bob_A Bob_B
# 1     1     9     6     8     5
# 2     2     7     7     6     6
# 3     3     6     8     9     7

EDIT 22/10/2019

As mentioned in comments by @gjabel, newer tidyr versions (v1.0.0+)
have now pivot_wider and pivot_longer functions (currently in maturing state), hence, a newer approach would be

pivot_wider(data = df, 
            id_cols = month, 
            names_from = student, 
            values_from = c("A", "B"))
# # A tibble: 3 x 5
#     month A_Amy A_Bob B_Amy B_Bob
#     <int> <dbl> <dbl> <dbl> <dbl>
#   1     1     9     8     6     5
#   2     2     7     6     7     6
#   3     3     6     9     8     7

More Related Contents:

  1. Gather multiple sets of columns
  2. Combine Multiple Columns Into Tidy Data [duplicate]
  3. Reshape multiple values at once
  4. dplyr summarise: Equivalent of “.drop=FALSE” to keep groups with zero length in output
  5. dplyr: nonstandard column names (white space, punctuation, starts with numbers)
  6. How to add a cumulative column to an R dataframe using dplyr?
  7. Proper idiom for adding zero count rows in tidyr/dplyr
  8. Get last row of each group in R [duplicate]
  9. R – add column that counts sequentially within groups but repeats for duplicates
  10. Change value of variable with dplyr
  11. Add NAs to make all list elements equal length
  12. Merge rows in a dataframe where the rows are disjoint and contain NAs
  13. Reshape from long to wide and create columns with binary value
  14. adding default values to item x group pairs that don’t have a value (df %>% spread %>% gather seems strange)
  15. How to complete missing factor levels in data frame?
  16. Calculate group mean while excluding current observation using dplyr
  17. combine two data frames with all posible combinations
  18. mutate_each / summarise_each in dplyr: how do I select certain columns and give new names to mutated columns?
  19. Spread with duplicate identifiers (using tidyverse and %>%) [duplicate]
  20. finding close match from data frame 1 in data fame 2
  21. Changing Million/Billion abbreviations into actual numbers? ie. 5.12M -> 5,120,000 [duplicate]
  22. dplyr change many data types
  23. Spreading a two column data frame with tidyr
  24. Join two data frames in R based on closest timestamp
  25. How to replace all NA in a dataframe using tidyr::replace_na? [duplicate]
  26. How to dplyr rename a column, by column index?
  27. tidyverse – prefered way to turn a named vector into a data.frame/tibble
  28. How to add only missing Dates in Dataframe
  29. Override column types when importing data using readr::read_csv() when there are many columns
  30. Adding column if it does not exist

Leave a Comment