1

I want to create a list or many data.frame from a dataframe at the same time after splitting a matrix. I am using the function combn to create a matrix. For instance:

 combos<-combn(1:3, 2)
 combos
 [,1] [,2] [,3]
 [1,]    1    1    2
 [2,]    2    3    3

After I have a data frame with 3 columns.

col1<-c(0,2,4);col2<-c(1,3,5);col3<-c(6,7,8)
df<-cbind.data.frame(col1,col2,col3)
df
      col1 col2 col3
 1    0    1    6
 2    2    3    7
 3    4    5    8

Using combos I would like to get this results in data frame or list:

 df1
      col1 col2
 1    0    1  
 2    2    3  
 3    4    5  
df2
      col1  col3
 1    0      6
 2    2      7
 3    4      8 
df3
      col2 col3
 1     1    6
 2     3    7
 3     5    8

After of that, I would want to join these dataframe or list with other dataframes or list to get this result: using this new data dfo

 col1<-c('a','c'); col2<-c('b','d')
 dfo<-cbind.data.frame(col1,col2)
      col1 col2
 1    a    b
 2    c    d

 df1o
      col1 col2
 1    0    1  
 2    2    3  
 3    4    5
 4    a    b
 5    c    d  

 df2o
      col1  col3
 1    0      6
 2    2      7
 3    4      8 
 4    a      b
 5    c      d

 df3o
      col2 col3
  1     1    6
  2     3    7
  3     5    8 
  4     a    b
  5     c    d

I have 3000 df and 5000 dfo

4

1 回答 1

0

实际上，您可以使用lapply循环列表。

combos <- combn(1:3, 2)

col1 <- c(0,2,4); col2 <- c(1,3,5); col3 <- c(6,7,8)
df <- cbind.data.frame(col1,col2,col3)

df.1 <- lapply(1:ncol(combos), function(i){df[, combos[,i]]})

col1 <- c('a','c'); col2 <- c('b','d')
dfo <- cbind.data.frame(col1,col2)

dfo.1 <- lapply(df.1, function(x){
  names(dfo) <- names(x)
  return(rbind(x, dfo))
})
# [[1]]
#   col1 col2
# 1    0    1
# 2    2    3
# 3    4    5
# 4    a    b
# 5    c    d
# 
# [[2]]
#   col1 col3
# 1    0    6
# 2    2    7
# 3    4    8
# 4    a    b
# 5    c    d
# 
# [[3]]
#   col2 col3
# 1    1    6
# 2    3    7
# 3    5    8
# 4    a    b
# 5    c    d
于 2016-03-28T02:42:02.680 回答