> 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