Sammeln von Gruppen von Spalten

Question

Ich habe Daten aus einer Online-Umfrage, wo die Befragten eine Reihe von 5 Fragen durchlaufen. Die Daten, die ich an arbeite wie folgt aussehen:

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 

Die gewünschte Ausgabe ist:

 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 

Ich habe versucht, dieses Problem mit Bibliothek tidyr zu lösen, aber ich kann nicht verstehen, wie man Wende es an. Einige Ratschläge dazu werden sehr hilfreich sein.

Answer 1

Eine der Lösungen können sein:

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) 

}