收集列组[重复]

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)

}