要扩展@Franks 的答案,如果在您的特定情况下您要附加一行,则为:
set.seed(12345)
dt1 <- data.table(a=rnorm(5), b=rnorm(5))
以下是等效的;我发现第一个更容易阅读,但第二个更快:
microbenchmark(
rbind(dt1, list(5, 6)),
rbindlist(list(dt1, list(5, 6)))
)
我们可以看到:
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
如果你想在其他地方插入行,下面的方法也可以,但不太漂亮:
rbindlist(list(dt1[1:3, ], list(5, 6), dt1[4:5, ]))
or even
rbindlist(list(dt1[1:3, ], as.list(c(5, 6)), dt1[4:5, ]))
giving:
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
如果您要就地修改一行(这是首选方法),则需要提前定义 data.table 的大小,即
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
谢谢@Boxuan,我修改了这个答案以考虑您的建议,这更快,更容易阅读。