如何将data.frame拆分为相等的列

时间:2017-10-17 20:13:28

标签: r

以下是示例数据:

df <- data.frame(t(data.frame(seq(1,10,1)))); rownames(df) <- NULL; 
colnames(df) <- letters[1:ncol(df)]
df

我想安排新的data.frame,以便它始终有6列,下一行(自ncol&gt; 6之后的夹板)将包含接下来的6个列名称和下一行的值。如果ncol <6,则最后一行的值用空字符串填充,包括列名。

这是期望的输出:

  a b c d e f 
1 1 2 3 4 5 6  
2 g h i j 
3 7 8 9 10 

另一个例子:

df <- data.frame(t(data.frame(seq(1,15,1)))); rownames(df) <- NULL; 
colnames(df) <- letters[1:ncol(df)]
df

  a b c d e f
1 1 2 3 4 5 6
2 g h i j k l
3 7 8 9 10 11 12
4 m n o
5 13 14 15

编辑:

接近它的方法可能是:

n <- 6
ncl <- nrow(df)

s <- split(df, rep(1:ceiling(ncl/n), each=n, length.out=ncl))
s

s1 <- split(rownames(df), rep(1:ceiling(ncl/n), each=n, length.out=ncl))
s1

合并ss1

的每一次分割
s1[c(TRUE,FALSE)]

2 个答案:

答案 0 :(得分:1)

对于我的生活,我无法弄清楚这个用例...但是为了提供的例子......

seq(1, ncol(df), by = 6) %>% {
    starts <- .
    ends <- c(lead(.,1,NULL)-1, ncol(df))
    base_df <- df[,starts[[1]]:ends[[1]]]
    rbind(base_df, rbind.pages(Map(function(s, e){
       d <- df[,seq(s, e)]
       data.frame(rbind(colnames(d), d)) %>% setNames(colnames(base_df)[1:length(.)])
    }, s = starts[-1], e = ends[-1]))
        )  %>% 
        mutate_all(function(x){
            ifelse(!is.na(x), x, "")
        })
}

   a  b  c  d  e  f
1  1  2  3  4  5  6
2  g  h  i  j  k  l
3  7  8  9 10 11 12
4  m  n  o         
5 13 14 15   

编辑强制NA为'空字符串'

答案 1 :(得分:1)

这是一种方式,不是那么漂亮,但这是一个丑陋的问题:D

library(tibble)
library(dplyr)
df1 <- matrix(c(names(df),rep('',6 - ncol(df)%%6)) %>% unlist, ncol=6,byrow=T) %>% as_tibble %>% rowid_to_column()
df2 <- matrix(c(df       ,rep('',6 - ncol(df)%%6)) %>% unlist, ncol=6,byrow=T) %>% as_tibble %>% rowid_to_column()
bind_rows(df1,df2) %>% arrange(rowid) %>% select(-1) %>% setNames(.[1,]) %>% slice(-1)

# # A tibble: 3 x 6
#       a     b     c     d     e     f
#   <chr> <chr> <chr> <chr> <chr> <chr>
# 1     1     2     3     4     5     6
# 2     g     h     i     j            
# 3     7     8     9    10