2016-06-14 49 views
6

Come posso intercalare le righe da 2 frame di dati insieme come un riffle shuffle perfetto?Come si possono interlacciare righe da 2 frame di dati insieme?

dati Esempio:

df1 <- data.frame(df = 1, id = 1:5, chr = 'puppies') 
df2 <- data.frame(df = 2, id = 1:5, chr = 'kitties') 

df1:

df id  chr 
1 1 1 puppies 
2 1 2 puppies 
3 1 3 puppies 
4 1 4 puppies 
5 1 5 puppies 

DF2:

df id  chr 
1 2 1 kitties 
2 2 2 kitties 
3 2 3 kitties 
4 2 4 kitties 
5 2 5 kitties 

risultato desiderato:

 df id  chr 
1  1  1 puppies 
2  2  1 kitties 
3  1  2 puppies 
4  2  2 kitties 
5  1  3 puppies 
6  2  3 kitties 
7  1  4 puppies 
8  2  4 kitties 
9  1  5 puppies 
10  2  5 kitties 

risposta

4

Assegnare i numeri di riga a ciascun frame di dati in modo indipendente, quindi associare le righe e ordinare/organizzare per numero di riga e ID frame dati. In questo esempio, i numeri di riga sono banali poiché gli ID sono sequenziali e fungono da numero di riga. Ma nel caso generale, dovrebbero essere usati i numeri di riga.

Ecco un esempio utilizzando dplyr:

df1 %>% 
    mutate(row_number = row_number()) %>% 
    bind_rows(df2 %>% mutate(row_number = row_number())) %>% 
    arrange(row_number, df) 

uscita:

 df id  chr row_number 
    (dbl) (int) (chr)  (int) 
1  1  1 puppies   1 
2  2  1 kitties   1 
3  1  2 puppies   2 
4  2  2 kitties   2 
5  1  3 puppies   3 
6  2  3 kitties   3 
7  1  4 puppies   4 
8  2  4 kitties   4 
9  1  5 puppies   5 
10  2  5 kitties   5 
3

Qui è un metodo di base R che io credo opere. C'è un po 'di costi di installazione. Ho anche usare vettori di caratteri anziché fattori (stringsAsFactors = F)

# setup a blank data.frame of the proper dimensions 
df <- data.frame(df=1:(nrow(df1) + nrow(df2)), 
       id=1:(nrow(df1) + nrow(df2)), 
       chr=1:(nrow(df1) + nrow(df2))) 

# fill it in with subscripting 
df[1:(nrow(df1) + nrow(df2)) %% 2 == 1,] <- df1 
df[1:(nrow(df1) + nrow(df2)) %% 2 == 0,] <- df2 
df 
    df id  chr 
1 1 1 puppies 
2 2 1 kitties 
3 1 2 puppies 
4 2 2 kitties 
5 1 3 puppies 
6 2 3 kitties 
7 1 4 puppies 
8 2 4 kitties 
9 1 5 puppies 
10 2 5 kitties 

dati

df1 <- data.frame(df = 1, id = 1:5, chr = 'puppies', stringsAsFactors=F) 
df2 <- data.frame(df = 2, id = 1:5, chr = 'kitties', stringsAsFactors=F) 
5

Una soluzione non dplyr sarebbe quella di utilizzare la funzione interleave nel pacchetto gdata.

gdata::interleave(df1, df2) 
4

Nella base R, trovo che tali manipolazioni siano più facili con le matrici che con data.frames. Questo one-liner abbastanza lungo dovrebbe funzionare:

setNames(data.frame(t(matrix(unlist(t(cbind(df1,df2))),ncol(df1)))),names(df1)) 
# df id  chr 
#1 1 1 puppies 
#2 2 1 kitties 
#3 1 2 puppies 
#4 2 2 kitties 
#5 1 3 puppies 
#6 2 3 kitties 
#7 1 4 puppies 
#8 2 4 kitties 
#9 1 5 puppies 
#10 2 5 kitties