列のグループを集める

Question

回答者が一連の5つの質問を行うオンライン調査のデータがあります。私はこのようなルックスで働いています データ：

P1 P2 P3 P4 P5 P1 P2 P3 P4 P5 P1 P2 P3 P4 P5 
    1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 
    6 7 8 9 10 6 7 8 9 10 6 7 8 9 10 

所望の出力は次のようになります。

 P1 P2 P3 P4 P5 
    1 2 3 4 5 
    6 7 8 9 10 
    1 2 3 4 5 
    6 7 8 9 10 
    1 2 3 4 5 
    6 7 8 9 10 

私は図書館tidyrでこの問題を解決しようとしているが、どのように私は理解できませんそれを適用する。 これについてのアドバイスは、本当に役に立ちます。

Answer 1

解決策の1つは指定できます

require(foreach) 
require(dplyr) 
require(magrittr)  

foreach(
    unique_name = unique(colnames(df)), 
    .combine = 'bind_cols' 
) %do% { 

    df[grep(unique_name), colnames(df)] %>% 
    unlist() %>% 
    as.data.frame() %>% 
    set_colnames(., unique_names) 

}