R - Concatenare due frame di dati?

129

Dati due frame di dati ae b:

> a
           a           b           c
1 -0.2246894 -1.48167912 -1.65099363
2  0.5559320 -0.87898575 -0.15634590
3  1.8469466 -0.01487524 -0.53098215
4 -0.6875051  0.23880967  0.01824621
5 -0.6735163  0.75485292  0.44154092


> b
           a          c
1  0.4287284 -0.3295925
2  0.5201492  0.3341251
3 -2.6355570  1.7916780
4 -1.3645337  1.3642276
5 -0.4954542 -0.6660001

Esiste un modo semplice per concatenarli in modo da restituire un nuovo frame di dati del modulo sottostante?

> new
           a                   b           c
1  -0.2246894   -1.48167912106676 -1.65099363
2   0.5559320  -0.878985746842256 -0.15634590
3   1.8469466 -0.0148752354840942 -0.53098215
4  -0.6875051   0.238809666690982  0.01824621
5  -0.6735163   0.754852923524198  0.44154092
6   0.4287284                  NA -0.32959248
7   0.5201492                  NA  0.33412510
8  -2.6355570                  NA  1.79167801
9  -1.3645337                  NA  1.36422764
10 -0.4954542                  NA -0.66600006

Voglio unire i frame di dati, abbinare le intestazioni e inserirle NAper le posizioni nel frame di dati in bcui manca l'intestazione.

r dataframe concatenation

— Darren J. Fitzpatrick
fonte

3

Presumo che tu abbia provato già provato merge()? Perché non funziona?

— Andrie,

2

Non ho Andrie - quindi ti farò +1 per avermi fatto fare Doh!

— Darren J. Fitzpatrick,

16

Non ho capito bene. L'operazione di Darren non è un join: non esiste un "prodotto cartesiano". Piuttosto, è una concatenazione diretta. In che modo aiutano i join?

— dfrankow,

225

Vuoi "rbind".

b$b <- NA
new <- rbind(a, b)

rbind richiede che i frame di dati abbiano le stesse colonne.

La prima riga aggiunge la colonna b al frame di dati b.

risultati

> a <- data.frame(a=c(0,1,2), b=c(3,4,5), c=c(6,7,8))
> a
  a b c
1 0 3 6
2 1 4 7
3 2 5 8
> b <- data.frame(a=c(9,10,11), c=c(12,13,14))
> b
   a  c
1  9 12
2 10 13
3 11 14
> b$b <- NA
> b
   a  c  b
1  9 12 NA
2 10 13 NA
3 11 14 NA
> new <- rbind(a,b)
> new
   a  b  c
1  0  3  6
2  1  4  7
3  2  5  8
4  9 NA 12
5 10 NA 13
6 11 NA 14

— dfrankow
fonte

9

Se stai ottenendo l'unione di più di 2 frame di dati, puoi usarli Reduce(rbind, list_of_data_frames)per unirli tutti insieme!

— Yourpalal,

1

se vieni rbinddalla base per qualche strano motivo: ho usatorbind.data.frame

— Boern

34

Prova il pacchetto plyr :

rbind.fill(a,b,c)

— Rnoob
fonte

9

Evitare l'uso di pacchetti esterni per attività semplici.

— Fernando,

24

Più chiaro e più semplice dell'hacking in colonne extra solo per favore rbind; questa è la strada giusta da seguire. Evitare pacchetti estremamente comuni come plyrquando offre gli strumenti giusti per il lavoro non è semplicemente sensato.

— Jack Aidley,

2

Questa funzione esegue automaticamente la fusione del fattore. È significativamente migliore della risposta accettata. plyrè un pessimo pacchetto comune.

— HelloWorld,

23

puoi usare la funzione

bind_rows(a,b)

dalla libreria dplyr

— Adam Lee Perelman
fonte

2

Diversamente da cbind ( rbind), questa funzione non cambia il tipo di tutte le colonne (righe) in factorse è presente un vettore di caratteri.

— Azim,

11

Ecco una semplice piccola funzione che rileverà insieme due set di dati dopo aver rilevato automaticamente quali colonne mancano da ciascuna e aggiungendole con tutte le NAs.

Per qualsiasi motivo, ciò restituisce MOLTO più velocemente su set di dati più grandi rispetto all'uso della mergefunzione.

fastmerge <- function(d1, d2) {
  d1.names <- names(d1)
  d2.names <- names(d2)

  # columns in d1 but not in d2
  d2.add <- setdiff(d1.names, d2.names)

  # columns in d2 but not in d1
  d1.add <- setdiff(d2.names, d1.names)

  # add blank columns to d2
  if(length(d2.add) > 0) {
    for(i in 1:length(d2.add)) {
      d2[d2.add[i]] <- NA
    }
  }

  # add blank columns to d1
  if(length(d1.add) > 0) {
    for(i in 1:length(d1.add)) {
      d1[d1.add[i]] <- NA
    }
  }

  return(rbind(d1, d2))
}

— Mike Monteiro
fonte

1

Questa piccola funzione è la dinamite.

— Dirk,

Bello. Volevo solo pubblicare la stessa risposta :-). Un miglioramento: @Anton casted la NAa doublenella sua risposta. Sarebbe bello quando il tipo della nuova colonna fosse dello stesso tipo della colonna esistente nell'altro frame di dati. Forse via mode(d2[d2.add[i]]) <- mode(d1[d2.add[i]]). Ma non sono sicuro che questo sia il modo appropriato.

— daniel.heydebreck

3

Puoi utilizzare rbindma in questo caso devi avere lo stesso numero di colonne in entrambe le tabelle, quindi prova quanto segue:

b$b<-as.double(NA) #keeping numeric format is essential for further calculations
new<-rbind(a,b)

— Anton
fonte