Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- AID FNAME FVALUE
- 1 A 10
- 1 B 12
- 1 C 16
- 2 A 10
- 2 E 4
- 3 F 10
- 3 G 13
- AID A B C D E F G H
- 1 10 12 16 NULL NULL NULL NULL
- 2 10 NULL NULL NULL 4 NULL NULL NULL
- 3 NULL NULL NULL NULL NULL 10 13 NULL
- wide_DF <- unite_DF %>% spread(FNAME, FVALUE)
- unite_DF %>% group_by(AID) %>% mutate(ind = row_number()) %>% spread(FNAME, FVALUE) %>% select(Name, Value)
- AID <- c(1, 1, 1, 2, 2, 3, 3)
- FNAME <- c("A", "B", "C", "A", "E", "F", "G")
- FVALUE <- c(10, 12, 16, 10, 4, 10, 13)
- df <- data.frame(AID, FNAME, FVALUE)
- df_wide <- reshape(df, direction = "wide", idvar = "AID", v.names = "FVALUE", timevar = "FNAME")
- library(tidyverse)
- unite_DF %>%
- mutate(FNAME = factor(FNAME, levels = LETTERS[1:8])) %>%
- spread(FNAME, FVALUE, drop = FALSE)
- # AID A B C D E F G H
- #1 1 10 12 16 NA NA NA NA NA
- #2 2 10 NA NA NA 4 NA NA NA
- #3 3 NA NA NA NA NA 10 13 NA
- unite_DF <- structure(list(AID = c(1L, 1L, 1L, 2L, 2L, 3L, 3L), FNAME = c("A",
- "B", "C", "A", "E", "F", "G"), FVALUE = c(10L, 12L, 16L, 10L,
- 4L, 10L, 13L)), class = "data.frame", row.names = c(NA, -7L))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement