如何在 R 中进行动态数据帧索引

Question

我有两个数据框；酱汁和规则。规则有一个名为 fieldname 的列，其中包含酱汁中存在的列名。 rules 有一个名为 fieldvalue 的行，其中包含与酱汁中的列名相关的字段。我想根据规则的字段名和字段值从酱汁中提取数据。

我尝试使用 for 循环，但它们花费的时间太长，并且无法从中获得正确的结果。

> sauce <- data.frame(Type = c("ketchup","mustard","mayo","lite-mayo","ketchup"), Brand = c("Heinz","Publix","Kroger","Kroger","Kroger"))
> rules <- data.frame(fieldname = c("Type","Type","Brand"),
                        fieldvalue = c("ketchup","lite-mayo","Kroger"),
                          operator = c("and","or",""),
                            fielname2 = c("Brand","Brand",""),
                             fieldvalue2 = c("Heinz","Kroger",""))  

我打算索引列名，但使用不同的数据框 sauce[,c(rules$fieldname)]

理想情况下，我希望根据规则数据框从酱汁中获取数据。

例如：字段名：类型和字段值：番茄酱（并且是操作员）应该导致番茄酱亨氏作为输出

Answer 1

1. 使用来自规则数据框的apply 和sprintf 创建条件向量
   

   #Change and, or to &, |
   rules$operator_sym <- ifelse(rules$operator=="","",ifelse(rules$operator=="and",'&','|'))
   conds <- apply(rules, 1, function(x) if(length(x[x!=''])==6) 
     sprintf("%s == '%s' %s %s == '%s'", x['fieldname'], x['fieldvalue'], x['operator_sym'], x['fielname2'], x['fieldvalue2']) else  
     sprintf("%s == '%s'",x['fieldname'],x['fieldvalue']))
   
   > conds
   [1] "Type == 'ketchup' & Brand == 'Heinz'"    "Type == 'lite-mayo' | Brand == 'Kroger'"
   [3] "Brand == 'Kroger'" 
   

2. 使用map 循环使用当前条件的conds 和filter sauce。使用 parse_exprs 将条件从字符串转换为 R epression，然后使用 !!! 进行评估
   

   library(dplyr)
   library(purrr)
   library(rlang)
   map(conds %>% set_names(), ~filter(sauce, !!!parse_exprs(.x)))
   
   $`Type == 'ketchup' & Brand == 'Heinz'`
        Type Brand
   1 ketchup Heinz
   
   $`Type == 'lite-mayo' | Brand == 'Kroger'`
          Type  Brand
   1      mayo Kroger
   2 lite-mayo Kroger
   3   ketchup Kroger
   
   $`Brand == 'Kroger'`
          Type  Brand
   1      mayo Kroger
   2 lite-mayo Kroger
   3   ketchup Kroger
   

使用map，如果您希望将输出作为您需要的数据框map_dfr(conds %>% set_names(), ~filter(sauce, !!!parse_exprs(.x)), .id = "Condition")，则输出将是一个列表