Question

我正在尝试将一些旧代码从数据框实现移动到数据表。最初我从.csv文件中获取数据，其中一些单元格包含由fread转换为字符串的数组，如下所示：

> mydata$sport[1]
[1] "[24, 18, 24, 18]"

我想将这些字符串解析为数值数组。这是我部分工作的第一步（摆脱括号，第2步，这里没有显示，是转换为数字数组）：

> name = "ascent"
> paste0(name, ":=strsplit(gsub('^\\[|\\]$','',", name, "),',')")
[1] "ascent:=strsplit(gsub('^\\[|\\]$','',ascent),',')"
 #here I manually copy the result of paste0 into the datatable command
 #I want to automate this setup, so this all can be put in a for loop
 #for many names
> mydata[, ascent:=strsplit(gsub('^\\[|\\]$','',ascent),',')]
> mydata$ascent[10]
[[1]]
[1] "-999"  " -999"

因此我生成的用于修改的命令很好，但我有很多names我想这样做，所以我不想手动复制和粘贴，如上所述。我尝试使用此处讨论的eval技巧dynamic column names in data.table, R

但是，一旦我介绍eval，代码就不起作用了：

> name = "ascent"
> mydata[, eval(paste0(name, ":=strsplit(gsub('^\\[|\\]$','',", name, "),',')"))]
[1] "ascent:=strsplit(gsub('^\\[|\\]$','',ascent),',')"

那么如何通过paste0为每个所需名称手工创建一个命令来实现这个任意名称？我有一个names的整个向量我想做这个修改。

这是fread之后和进行任何修改之前的数据表：

> mydata[1:10, .(sport, ascent)]
                             sport                                                       ascent
 1:               [24, 18, 24, 18]                                   [-999, 140.0, -999, 140.0]
 2: [2, 2, 2, 22]                                                    [-999, -999, -999, -999]
 3:       [-999, -999, -999, -999]                                     [-999, -999, -999, -999]
 4:                   [-999, -999]                                               [173.0, 173.0]
 5:                       [18, 18]                                                 [-999, -999]
 6:                         [-999]                                                       [-999]
 7:                         [-999]                                                       [-999]
 8:                         [-999]                                                       [-999]
 9:                   [-999, -999]                                                 [-999, -999]
10:                   [-999, -999]                                                 [-999, -999]

Answer 1

根本不要使用这些名字......

for(j in which(names(mydata) %in% names)) set(mydata,i=NULL,j=j,value=strsplit(gsub('^\\[|\\]$','',mydata[[j]]),','))

旁边eval需要parse以您尝试使用它的方式工作，例如eval(parse(text=paste0(name,":=1+1")))

R：为数据表中动态命名的列动态生成列解析代码

1 个答案: