Włóż wiersz w data.table

Question

Jeśli ma ramkę danych

set.seed(12345) 
df=data.frame(a=rnorm(5),b=rnorm(5)) 

można dodać wiersz przez np

df[6,] =c(5,6)

Gdybym teraz zrobić równowartość w data.table

library(data.table) 
dt=data.table(df) 
dt[6,]=c(5,6) 

nie powiedzie się z powodu błędu. Jaki jest właściwy sposób wstawiania wiersza do tabeli data.table?

Answer 1

Aby rozwinąć na @Franks odpowiedź, czy w danym przypadku, gdy dodanie wiersza, to:

set.seed(12345) 
dt1 <- data.table(a=rnorm(5), b=rnorm(5)) 

Poniżej są równoważne; Uważam, że najpierw łatwiejsze do odczytania, ale sekundy szybciej:

microbenchmark(
    rbind(dt1, list(5, 6)), 
    rbindlist(list(dt1, list(5, 6)))   
) 

Jak widzimy:

       expr  min  lq median  uq  max 
      rbind(dt1, list(5, 6)) 160.516 166.058 175.089 185.1470 457.735 
rbindlist(list(dt1, list(5, 6))) 130.137 134.037 140.605 149.6365 184.326 

Jeśli chcesz wstawić wiersz gdzie indziej, co następuje będzie działać, ale nie całkiem:

rbindlist(list(dt1[1:3, ], list(5, 6), dt1[4:5, ])) 

lub nawet

rbindlist(list(dt1[1:3, ], as.list(c(5, 6)), dt1[4:5, ])) 

dawanie:

  a   b 
1: 0.5855288 -1.8179560 
2: 0.7094660 0.6300986 
3: -0.1093033 -0.2761841 
4: 5.0000000 6.0000000 
5: -0.4534972 -0.2841597 
6: 0.6058875 -0.9193220 

Jeśli modyfikując wiersz w miejscu (co jest preferowanym podejściem), trzeba będzie określić rozmiar data.table z góry tzn

dt1 <- data.table(a=rnorm(6), b=rnorm(6)) 
set(dt1, i=6L, j="a", value=5) # refer to column by name 
set(dt1, i=6L, j=2L, value=6) # refer to column by number 

Dzięki @ Boxuan, zmodyfikowałem tę odpowiedź, aby uwzględnić Twoją sugestię, która jest trochę szybsza i łatwiejsza do odczytania.