열 그룹 모으기

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

하나가 될 수 있습니다

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) 

}