按组从行转换为列，并且每个组只保留一个条目

Question

我想重塑这张桌子：

m <- matrix(1:8, ncol = 2)
m[m < 4] <- NA
#> m
#     [,1] [,2]
#[1,]   NA    5
#[2,]   NA    6
#[3,]   NA    7
#[4,]    4    8

致

data<-read.table(header=T, text=c("

X T V W  
0 a g m  
0 b h n  
0 c i o  
1 d j p  
1 e k q  
1 f l r "))  

因此，我们只对X中每个组的第一次观察进行转换，并将T，V和W中的相应值转换为列。
请注意，我在X（000,111,222，...）中有大约2000组重复值，我需要知道如何用R重塑它。这意味着我在重新形成2000行之后开始获得6000行但是在T，V和W中重新映射每组的2个值必须在新的列T2，T3等中转置。 谢谢！