【发布时间】：2018-02-28 19:27:15
【问题描述】：
我正在努力在 R 中使用 dplyr 进行编程，以对数据框的列进行操作，这些列只能通过字符串名称知道。我知道最近对dplyr 进行了更新以支持quosures 等，我在这里查看了我认为是新的“使用dplyr 编程”文章的相关组件：http://dplyr.tidyverse.org/articles/programming.html。但是，我仍然无法做我想做的事。
我的情况是我只通过字符串名称知道数据框的列名。因此，我不能在函数内调用 dplyr 时使用非标准评估，甚至不能在列名可能在运行之间更改的脚本中使用非标准评估，因为我无法对未引用的（即“裸”）进行硬编码列名一般。我想知道如何解决这个问题，我猜我用新的引用/取消引用语法忽略了一些东西。
例如，假设我的用户输入定义了数据分布的截止百分位数。用户可以使用他/她想要的任何百分位数运行代码，他/她选择的百分位数将改变输出。在分析中，中间数据框中的一列是用所用百分位数的名称创建的；因此，此列的名称会根据用户输入的截止百分位数而变化。
下面是一个最小的例子来说明。我想用截止百分位数的各种值调用该函数。我希望名为 MPGCutoffs 的数据框有一个根据所选截止分位数命名的列（这目前在下面的代码中有效），我想稍后对该列名进行操作。由于这个列名的通用性，我在写函数的时候只能根据输入pctCutoff知道，所以需要在只知道probColName定义的字符串的情况下对其进行操作，它遵循基于pctCutoff 值的预定义模式。
userInput_prob1 <- 0.95
userInput_prob2 <- 0.9
# Function to get cars that have the "best" MPG
# fuel economy, where "best" is defined by the
# percentile cutoff passed to the function.
getBestMPG <- function( pctCutoff ){
# Define new column name to hold the MPG percentile cutoff.
probColName <- paste0('P', pctCutoff*100)
# Compute the MPG percentile cutoff by number of gears.
MPGCutoffs <- mtcars %>%
dplyr::group_by( gear ) %>%
dplyr::summarize( !!probColName := quantile(mpg, pctCutoff) )
# Filter mtcars with only MPG values above cutoffs.
output <- mtcars %>%
dplyr::left_join( MPGCutoffs, by='gear' ) %>%
dplyr::filter( mpg > !!probColName ) #****This doesn't run; this is where I'm stuck
# Return filtered data.
return(output)
}
best_1 <- getBestMPG( userInput_prob1 )
best_2 <- getBestMPG( userInput_prob2 )
dplyr::filter() 语句是我无法正常运行的。我试过了：
dplyr::filter( mpg > probColName ) - 没有错误，但没有返回行。
dplyr::filter( mpg > !!probColName ) - 没有错误，但没有返回行。
我还看到了一些示例，其中我可以将 quo(P95) 之类的内容传递给函数，然后在对 dplyr::filter() 的调用中取消引用它；我已经让它工作了，但它并没有解决我的问题，因为它需要在函数之外对变量名进行硬编码。例如，如果我这样做并且用户传递的百分位数是 0.90，那么对 dplyr::filter() 的调用将失败，因为创建的列名为 P90 而不是 P95。
任何帮助将不胜感激。我希望有一个简单的解决方案，我只是忽略了。
【问题讨论】：
标签： r dynamic dplyr quoting rlang