> 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