Вы хотите что-то вроде cast
.Например,
require(reshape2)
indata <- data.frame( Marker = rep(c("M1","M2","M3","M4"), 3),
Genotype = rep(c("G1","G2","G3"), each=4),
value = c("AA","TT","GG","CC","AA","GG","AA","TT","GG","CC","AA","GG") )
outdata <- dcast(indata, Marker ~ Genotype)
приведет вас от
> indata
Marker Genotype value
1 M1 G1 AA
2 M2 G1 TT
3 M3 G1 GG
4 M4 G1 CC
5 M1 G2 AA
6 M2 G2 GG
7 M3 G2 AA
8 M4 G2 TT
9 M1 G3 GG
10 M2 G3 CC
11 M3 G3 AA
12 M4 G3 GG
к
> outdata
Marker G1 G2 G3
1 M1 AA AA GG
2 M2 TT GG CC
3 M3 GG AA AA
4 M4 CC TT GG