Spread with data.frame/tibble with duplicate identifiers

by

Hadley’s intervention was unsurprisingly perfect… but I ended up mucking with the syntax a bit after that… so for what it’s worth, I post the fully operational code (sorry my syntax is a bit different than above):

library(tidyr)
library(dplyr)

wide <- 
  iris %>%
  mutate(row = row_number()) %>%
  gather(vars, val, -Species, -row) %>%
  spread(vars, val)

head(wide)
#   Species row Petal.Length Petal.Width Sepal.Length Sepal.Width
# 1  setosa   1          1.4         0.2          5.1         3.5
# 2  setosa   2          1.4         0.2          4.9         3.0
# 3  setosa   3          1.3         0.2          4.7         3.2
# 4  setosa   4          1.5         0.2          4.6         3.1
# 5  setosa   5          1.4         0.2          5.0         3.6
# 6  setosa   6          1.7         0.4          5.4         3.9

head(iris)
# Sepal.Length Sepal.Width Petal.Length Petal.Width Species
# 1          5.1         3.5          1.4         0.2  setosa
# 2          4.9         3.0          1.4         0.2  setosa
# 3          4.7         3.2          1.3         0.2  setosa
# 4          4.6         3.1          1.5         0.2  setosa
# 5          5.0         3.6          1.4         0.2  setosa
# 6          5.4         3.9          1.7         0.4  setosa

They are the same…. just need to reorder if u feel like it… 

wide <- wide[,c(3, 4, 5, 6, 1)]  ## Reorder and then remove "row" column

and done.

More Related Contents:

  1. Reshaping multiple sets of measurement columns (wide format) into single columns (long format)
  2. Gather multiple sets of columns
  3. How to use Pivot_longer to reshape from wide-type data to long-type data with multiple variables
  4. Complete dataframe with missing combinations of values
  5. pivot_wider issue “Values in `values_from` are not uniquely identified; output will contain list-cols”
  6. How can I spread repeated measures of multiple variables into wide format?
  7. Combine Multiple Columns Into Tidy Data [duplicate]
  8. R spreading multiple columns with tidyr [duplicate]
  9. Reshape multiple values at once
  10. dplyr summarise: Equivalent of “.drop=FALSE” to keep groups with zero length in output
  11. Proper idiom for adding zero count rows in tidyr/dplyr
  12. How to spread columns with duplicate identifiers?
  13. Is it possible to use spread on multiple columns in tidyr similar to dcast? [duplicate]
  14. Add NAs to make all list elements equal length
  15. Reshape from long to wide and create columns with binary value
  16. adding default values to item x group pairs that don’t have a value (df %>% spread %>% gather seems strange)
  17. How to use tidyr::separate when the number of needed variables is unknown [duplicate]
  18. How to complete missing factor levels in data frame?
  19. combine two data frames with all posible combinations
  20. Tidyr how to spread into count of occurrence [duplicate]
  21. R: Reshaping Multiple Columns from Long to Wide
  22. tidyverse pivot_longer several sets of columns, but avoid intermediate mutate_wider steps [duplicate]
  23. Spread with duplicate identifiers (using tidyverse and %>%) [duplicate]
  24. data.table equivalent of tidyr::complete()
  25. Changing Million/Billion abbreviations into actual numbers? ie. 5.12M -> 5,120,000 [duplicate]
  26. Spreading a two column data frame with tidyr
  27. pivot_longer with multiple classes causes error (“No common type”)
  28. How to replace all NA in a dataframe using tidyr::replace_na? [duplicate]
  29. How to transpose a dataframe in tidyverse?
  30. Unlisting columns by groups

Leave a Comment