如何循环遍历数据表列？ [复制]

Question

我希望将数据表的列转换为另一个类，但无法使用字符串引用列。

set.seed(10238)
idt <- data.table(A = rep(1:3, each = 5), B = rep(1:5, 3),
                 C = sample(15), D = sample(15)) 

> idt
    A B  C  D
 1: 1 1 10 14
 2: 1 2  2  2
 3: 1 3 13  3
 4: 1 4  7  1
 5: 1 5  1  8
 6: 2 1 11 15
 7: 2 2  4 10
 8: 2 3 15  7
 9: 2 4 14 12
10: 2 5  5  9
11: 3 1  8 13
12: 3 2  3  4
13: 3 3  9  6
14: 3 4  6 11
15: 3 5 12  5

#All columns are integers 
    > lapply(idt, class)
$A
[1] "integer"
$B
[1] "integer"
$C
[1] "integer"
$D
[1] "integer"

vec = parse(text=c('A','B','C','D'))
for (i in vec) idt[, eval( i ) := as.character( eval(i) ) ]
Error in eval(expr, envir, enclos) : object 'A' not found*

我想通过循环一个向量来重新分配列类，该向量包含代表我要转换的列的名称的字符串。

我知道other threads 解决了同样的问题，但它们不是很容易理解。我的问题是为什么我不能循环遍历表达式和 eval 它们，就像我手动将 j 表达式中的 i 替换为每列的列名一样。

** 编辑不是重复的 **

我知道other threads 解决了同样的问题，但它们不是很容易理解。我的问题是为什么我不能循环遍历表达式和 eval 它们，就像我手动将 j 表达式中的 i 替换为每列的列名一样。

Answer 1

我们可以使用for 循环来执行此操作，方法是遍历“idt”的列名。在这种情况下，我们get 字符串的值，将其转换为character 并将其分配给（:=）字符串名称或列名称（(i)）

vec <- names(idt)
for(i in vec) idt[, (i) := as.character(get(i))]

---

或者使用.SDcols，我们在.SDcols 中指定感兴趣的列，用lapply 循环遍历data.table (.SD) 的子集并将其分配(:=) 到列的向量名称（'vec'）

id1[, (vec) := lapply(.SD, as.character), .SDcols = vec]

Answer 2

试试这个：

names <- colnames(idt)
idt <- idt[, lapply(.SD, as.character), .SDcols = (names)]

.SD 可以与 data.table 一起使用以获取数据的子集。 .SDcols 用于告诉 data.table 将函数应用到哪些列。

---

基于this answer，以下是更好的方法：

names <- colnames(idt)
idt[, (names) := lapply(.SD, as.character), .SDcols = names]