形状変更データ：列

Question

に行と列でマージ

だから - 私はこのようになりますdata.frameを持っている：

ID SNPIndex A1 A2 
ID1 1 A B 
ID1 2 B B 
ID1 3 A B 
ID2 1 A B 
ID2 2 B B 
ID2 3 A A 
ID3 1 B B 
.... 

、それはこのように見えるようにするために私が希望：

ID 1_A1 1_A2 2_A1 2_A2 3_A1 3_A2 
ID1 A B B B A B 
ID2 A B B B A A 
ID3 ... 

つまり、IDごとに1行、SNPIndexごとに2列、A1/A2値が1つの各列が必要です。

私は本当にあなたの助けに感謝します！

Answer 1

I a）は、これが重複であり、b）私のコードを簡素化することができることを確信しているが、これはあなたがあなたがreshapeパッケージのdcastループ内を使用することができます

dat <- data.frame(ID = c("ID1" , "ID2" , "ID3") , 
        SNPIndex = c(1,2,3) , 
        A1 = c("A", "B" , "A") , 
        A2 = c("B" , "B" , "B") , stringsAsFactors = F) 

library(tidyr) 
library(dplyr) 


dat %>% 
    gather(KEY, VALUE , A1, A2) %>% 
    mutate(KEY = paste0(SNPIndex , "_", KEY) ) %>% 
    select(-SNPIndex , - ID) %>% 
    spread(KEY , VALUE) 

Answer 2

の後にある何に見えます。

library(reshape2) 
df <- data.frame(ID=c("ID1","ID2","ID3"), 
       SNPIndex=1:3, 
       A1=c("A","B","A"), 
       A2=c("B","B","B") 
       ) 

dummy <- rep(1,3) 
number_of_As <- 2 

for (i in 1:number_of_As) { 
    rawdf <- dcast(df, dummy ~ SNPIndex, value.var=paste0("A",i)) 
    rawdf <- rawdf[,c(-1)] 
    colnames(rawdf) <- paste0(1:3,paste0("_A",i)) 
    if (i == 1) { 
    newdf <- rawdf 
    } else { 
    newdf <- cbind(newdf,rawdf) 
    } 
} 

これは、あなたが望む結果を得られます：トリックは、それはあなたが、あなたの希望のデータフレームにバインドすることができ、単一の行、につぶれるように、ダミーのベクターを使用することです

> newdf 
    1_A1 2_A1 3_A1 1_A2 2_A2 3_A2 
1 A B A B B B 

を。