R data.table按多个命名列拆分为data.tables列表

Question

我有这个dt，我希望按照每列的内容将其拆分为data.tables列表。

'%ni%' <- Negate('%in%')
dt <- setDT(copy(diamonds))
split_by <- paste0("dt$",colnames(dt)[colnames(dt) %ni% c("x","y")])
dt_to_list <- split(dt, list(dt$carat, dt$cut)) #works
dt_to_list <- split(dt, list(split_by)) # does not work

我希望尽量减少开销和内存使用，所以如果有更好的方法来实现我的目标，我非常乐意修改。