Reshape from long to wide and create columns with binary value

by

Using reshape2 we can dcast from long to wide.

As you only want a binary outcome we can unique the data first

library(reshape2)

si <- unique(studentInfo)
dcast(si, formula = StudentID ~ Subject, fun.aggregate = length)

#  StudentID English History Maths Science
#1         1       1       0     1       1
#2         2       0       0     1       0
#3         3       0       1     0       0

Another approach using tidyr and dplyr is

library(tidyr)
library(dplyr)

studentInfo %>%
  mutate(yesno = 1) %>%
  distinct %>%
  spread(Subject, yesno, fill = 0)

#  StudentID English History Maths Science
#1         1       1       0     1       1
#2         2       0       0     1       0
#3         3       0       1     0       0

Although I’m not a fan (yet) of tidyr syntax…

More Related Contents:

  1. Gather multiple sets of columns
  2. Combine Multiple Columns Into Tidy Data [duplicate]
  3. R spreading multiple columns with tidyr [duplicate]
  4. dplyr summarise: Equivalent of “.drop=FALSE” to keep groups with zero length in output
  5. Using spread with duplicate identifiers for rows
  6. Proper idiom for adding zero count rows in tidyr/dplyr
  7. Add NAs to make all list elements equal length
  8. adding default values to item x group pairs that don’t have a value (df %>% spread %>% gather seems strange)
  9. combine two data frames with all posible combinations
  10. Spread with duplicate identifiers (using tidyverse and %>%) [duplicate]
  11. Spreading a two column data frame with tidyr
  12. How to replace all NA in a dataframe using tidyr::replace_na? [duplicate]
  13. tidyverse – prefered way to turn a named vector into a data.frame/tibble
  14. Unlisting columns by groups
  15. Replace values greater than zero with 1 in r
  16. How does one access the piped data.frame in dplyr::funs?
  17. Reshaping multiple sets of measurement columns (wide format) into single columns (long format)
  18. Extract row corresponding to minimum value of a variable by group
  19. How to select the rows with maximum values in each group with dplyr? [duplicate]
  20. Filter multiple values on a string column in dplyr
  21. Reshape multiple values at once
  22. Concatenate strings by group with dplyr [duplicate]
  23. What does %>% function mean in R?
  24. R cumulative sum by condition with reset
  25. Can dplyr join on multiple columns or composite key?
  26. How to change the now deprecated dplyr::funs() which includes an ifelse argument?
  27. Apply a ggplot-function per group with dplyr and set title per group
  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