格式化data.table输出

Question

我有一些data.tables，每个包含10个以上的列，包括~4个键（列）和剩余的值（计数）列。打印到日志文件时，我想按原样打印键，同时应格式化值。例如

require(data.table)
NF <- function(x) { return(format(x,big.mark=",",trim=TRUE,scientific=FALSE)) }

dt <- data.table(c1=c("a","b"),c2=c("c","d"),c3=c("e","f"),c4=c(123456,432156),
              c5=c(4839384,83473948))
cbind(dt[, 1:3, with=F], dt[, lapply(.SD,NF), .SDcols=4:5])  #desired output

如何在不需要cbind并对dt进行两次调用的情况下编写此代码？我不想坚持格式化的值 在data.table中。它仅适用于日志文件。我的桌子很大，我宁愿不复制它们。