使用列名粘贴多个列值

Question

考虑这个 data.table ：

 dt <- data.table(V1=c(3,2),V2=c(4,2),V3=c(6,5),V4=c(7,8),V5=c(9,10))
 > dt
    V1 V2 V3 V4 V5
 1:  3  4  6  7  9
 2:  2  2  5  8 10

我想创建一个新的列，将一部分列的值和名称粘贴在一起。原始列应该被保留。

期望的输出是：

 > cols <- paste0("V",2:3)
 > dt
    V1 V2 V3 V4 V5    merged
 1:  3  4  6  7  9 V2:4 V3:6
 2:  2  2  5  8 10 V2:2 V3:5

我可以通过将 .SD 发送到一个函数并逐行处理来获得输出：

getSub <- function(SD){
            lapply(1:nrow(SD), function(s) paste0(cols,":", SD[s], collapse=" ")) 
          }
dt[, merged := list(getSub(.SD)), .SDcols=cols]
> dt
   V1 V2 V3 V4 V5              merged
1:  3  4  6  7  9 V1:3 V2:4 V3:6 V4:7
2:  2  2  5  8 10 V1:2 V2:2 V3:5 V4:8

我在想是否有一种类似于 dt[, merged := list(do.call(paste,c(c(cols,.SD),sep=" "))), .SDcols=cols] 的方法，因为它看起来要快得多。参考链接：https://dev59.com/FGMl5IYBdhLWcg3we3Ho#23819177？

- Michael Whitaker

---

如果这是关于 r 的问题，请相应地标记您的帖子。 - PM 77-1

@PM77-1 抱歉遗漏了，我认为eddi已经修复了它。 - Michael Whitaker

Answer 1

试试这个：

dt[, merged := do.call(paste, Map(function(x, y) paste(x, y, sep = ':'),
                                  names(.SD), .SD)),
     .SDcols = cols]

另一种选择是构建表达式并对其进行评估，但以上方法似乎足够快，不必去处理那些麻烦的事情。

- eddi