Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- > data <- data.frame(ID = rep("K", 6), Type = c(rep("A", 3), rep("B", 3)),
- +
- + X = c(NA,NA,1,2,3,4), Y = 5:10, Z = c(NA,11,12,NA,14,NA))
- >
- > data
- ID Type X Y Z
- 1 K A NA 5 NA
- 2 K A NA 6 11
- 3 K A 1 7 12
- 4 K B 2 8 NA
- 5 K B 3 9 14
- 6 K B 4 10 NA
- >
- > data <- reshape_long(data, identifiers = c("ID", "Type"))
- >
- > data
- ID Type name value
- 3 K A X 1
- 4 K B X 2
- 5 K B X 3
- 6 K B X 4
- 7 K A Y 5
- 8 K A Y 6
- 9 K A Y 7
- 10 K B Y 8
- 11 K B Y 9
- 12 K B Y 10
- 14 K A Z 11
- 15 K A Z 12
- 17 K B Z 14
- >
- > reshape_wide(data, identifiers = c("ID", "Type"), name="name")
- ID Type X Y Z
- 1 K A 1 5 11
- 2 K A NA 6 12
- 3 K A NA 7 NA
- 4 K B 2 NA NA
- 5 K B 3 NA 14
- 6 K B 4 8 NA
- 7 K B NA 9 NA
- 8 K B NA 10 NA
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement