问题描述：把一个数据框每五列进行一次切割，每次切割下来的五列堆积到第一个五列下面

    我的思路：
    对数据转化为列表，然后对每一行进行matrix化

    1. list1 <- bind_cols(iris,iris,iris,.name_repair="minimal")
    2. list1 <- split(df,1:nrow(df))
    3. map_dfr(list1,~as.data.frame(matrix(unlist(.x),byrow=T,ncol = 5)))

    张老师的思路

    1. library(tidyverse)
    2. df <-bind_cols(iris,iris,iris,.name_repair="minimal")
    3. n <- length(df)
    4. split(1:n,rep(1:15,each=5,length.out=n)) %>% map_dfr(~select(df,.x))

    image.png