Início / coding / Perguntas / 78861822
Accepted
sahuno
Asked: 2024-08-12 21:00:42 +0800 CST

cbind vários data.frames em uma lista com comprimentos desiguais

  • 772

Quero cbindos frames de dados em uma lista sem reciclar os itens de comprimento curto

library(data.table)
library(dplyr)
library(rlist)

# Create a list of data.tables with unequal lengths
dt1 <- data.table(B = letters[1:3])
dt2 <- data.table( D = LETTERS[1:2])
dt3 <- data.table(F = letters[4:7])

# Put them in a list
dt_list <- list(dt1, dt2, dt3)

# cbind them
dplyr::bind_cols(dt_list)
rlist::list.cbind(dt_list)

atualizado: saída esperada ou algo semelhante

     B    D F
1    a    A d
2    b    B e
3    c <NA> f
4 <NA> <NA> g

1 respostas

  1. Best Answer
    library(data.table)
library(dplyr)
library(rlist)

# Create a list of data.tables with unequal lengths
dt1 <- data.table(B = letters[1:3])
dt2 <- data.table( D = LETTERS[1:2])
dt3 <- data.table(F = letters[4:7])

# Put them in a list
dt_list <- list(dt1, dt2, dt3)

# Get max length of dts, pad shorter dts with NAs, bind together
maxLen_v <- max(sapply(dt_list, nrow))
dt_list <- lapply(dt_list, function(x) rbind(x, rep(NA, (maxLen_v-nrow(x))), use.names=F))
dt_out <- dplyr::bind_cols(dt_list)

dt_out
        B      D      F
   <char> <char> <char>
1:      a      A      d
2:      b      B      e
3:      c   <NA>      f
4:   <NA>   <NA>      g
    • 1

relate perguntas