我尝试过以下方法
results$index<-noquote(results$Expr)
results$index<-parse(text=results$index)
results$index<-eval(results$index)
results %>% rowwise() %>% mutate(eval(eval(parse(text=noquote(index)))))
results %>% rowwise() %>%mutate(res = eval(rlang::parse_expr(character(index))))
这有效
for (i in 1:nrow(结果)) { 结果$index[which(结果$indicator==i)]<-eval(rlang::parse_expr(results$expr[i])) }
但是需要很多时间