如何評估一個字符串以過濾R data.table？

Question

我希望能夠將一串過濾條件傳遞給data.table。我試着解析和eval的所有舉止，似乎無法弄清楚

我嘗試使用虹膜數據集來重建一個例子：

iris <- data.table(iris) 

vars <- 'setosa'      
filter <- 'Species == vars & Petal.Length >= 4' 

data <- iris[filter, list(
          sep.len.tot = sum(Sepal.Length) 
         , sep.width.total = sum(Sepal.Width) 
      ), by = 'Species'] 

所以過濾串有一個變量變量（基於循環變化）。我試圖根據過濾器字符串過濾數據。

是否有一個data.table評估字符串的特定方法？

希望有道理！

Answer 1

我認爲eval(parse(text()))會工作，你只需要一些修改。試試這個：

library(data.table) 
iris <- data.table(iris) 

#Updated so it will have quotes in your string 
vars <- '\"setosa\"' 
#Update so you can change your vars 
filter <- paste0('Species==',vars,'& Petal.Length >= 4') 

res <- iris[eval(parse(text=filter)), list(
    sep.len.tot = sum(Sepal.Length) 
    , sep.width.total = sum(Sepal.Width) 
), by = 'Species'] 

的幾個注意事項：我更新了vars字符串中這樣就會有行情，以便正常運行，我也更新filter這樣你就可以動態地改變0​​。

最後，爲了便於說明，得到的DF是空白（因爲沒有setosa品種有Petal.Length> = 4。因此，爲了看到這項工作，我們就可以去掉最後一個條件。

filter <- paste0('Species==',vars) 
res2 <- iris[eval(parse(text=filter)), list(
    sep.len.tot = sum(Sepal.Length) 
    , sep.width.total = sum(Sepal.Width) 
), by = 'Species'] 

res2 
    Species sep.len.tot sep.width.total 
1: setosa  250.3   171.4 

編輯： 每@下面弗蘭克的評論，更清潔的方法是編寫整個事情作爲表達式：

filter <- substitute(Species == vars, list(vars = "setosa")) 

res <- iris[eval(filter), list(
    sep.len.tot = sum(Sepal.Length) 
    , sep.width.total = sum(Sepal.Width) 
), by = 'Species'] 

Answer 2

您需要粘貼您的過濾器，並添加引號，即filter <- paste0('Species==\'',vars,'\' & Petal.Length >= 4')

然後你可以使用

eval(parse(text=paste0('iris[',filter,',list(sep.len.tot = sum(Sepal.Length), sep.width.total = sum(Sepal.Width)), by = \'Species\']')))