параллельный cbind фреймов данных, когда количество строк в фреймах данных может отличаться - PullRequest
Новая
       23

параллельный cbind фреймов данных, когда количество строк в фреймах данных может отличаться

0 голосов
/ 27 февраля 2020

Рассмотрим следующий пример: 

a1<-data.frame(a=c(1,2,3),b=c(4,5,6))
a2<-data.frame(a=c(5,6),b=c(7,8))
a3<-data.frame(e=c(34,26),f=c(41,65))
a4<-data.frame(e=c(13,25,567),f=c(14,57,56))

Я хочу привязать a1 к a3 после удаления последней строки a1, и a2 к a4 после удаления последней строки a4 для получения 

  a b  e  f
1 1 4 34 41
2 2 5 26 65

и 

  a b  e  f
1 5 7 13 14
2 6 8 25 57

Map(cbind, list(a1,a2),list(a3,a4)), как было предложено в другом месте, будут работать, если только если все кадры данных имеют одинаковое количество строк. Как выполнить cbind после удаления дополнительных строк в любом из составляющих фреймов данных в cbind?

Ответы [ 2 ]

2 голосов
/ 27 февраля 2020

Вы можете использовать nrow для доступа / исключения последних строк. 

Map(cbind, list(a1[-nrow(a1), ], a2), list(a3, a4[-nrow(a4), ]))
# [[1]]
#   a b  e  f
# 1 1 4 34 41
# 2 2 5 26 65
# 
# [[2]]
#   a b  e  f
# 1 5 7 13 14
# 2 6 8 25 57
1 голос
/ 27 февраля 2020

Мы можем получить все данные в списке, используя mget, разделив их на две половины. Используйте их в Map, получите минимальное количество строк в обоих кадрах данных, задайте подмножество этих строк и cbind. 

list_dfs <- mget(paste0('a', 1:4))

Map(function(x, y) {
    rows = seq_len(min(nrow(x), nrow(y)))
    cbind(x[rows, ], y[rows, ])
    },list_dfs[1:(length(list_dfs)/2)], 
      list_dfs[(length(list_dfs)/2 + 1):length(list_dfs)])

#$a1
#  a b  e  f
#1 1 4 34 41
#2 2 5 26 65

#$a2
#  a b  e  f
#1 5 7 13 14
#2 6 8 25 57
...