dplyr :: mutate unquote RHS

Question

我在想如何正確UQ字符串在dplyr方法如mutate方法創建在RHS上的變量名稱。見我在評論這個MWE的wilcox.test部分得到了錯誤的信息：

require(dplyr) 

dfMain <- data.frame(
    base = c(rep('A', 5), rep('B', 5)), 
    id = letters[1:10], 
    q0 = rnorm(10) 
) 

backgs <- list(
    A = rnorm(13), 
    B = rnorm(11) 
) 

fun <- function(dfMain, i = 0){ 

    pcol <- sprintf('p%i', i) 
    qcol <- sprintf('q%i', i) 

    (
     dfMain %>% 
     group_by(id) %>% 
     mutate(
      !!pcol := ifelse(
       !is.nan(!!qcol) & 
       length(backgs[[base]]), 
       wilcox.test(
        # !!(qcol) - backgs[[base]] 
        # object 'base' not found 
        # (!!qcol) - backgs[[base]] 
        # non-numeric argument to binary operator 
        (!!qcol) - backgs[[base]] 
       )$p.value, 
       NaN 
      ) 
     ) 
    ) 

} 

dfMain <- dfMain %>% fun() 

我猜!!(qcol) ...它被解釋爲，我想解除引用整個表達式不僅變量名，這就是爲什麼它沒有找到base？我還發現(!!qcol)返回字符串本身，因此-運算符無法處理它。

Answer 1

像您期望改變這一行你的代碼應工作在其中定義qcol到：

qcol <- as.symbol(sprintf('q%i', i)) 

也就是說，因爲qcol是一個字符串，你需要unquoting對於之前把它變成一個符號它將在您的mutate中正確評估。另外，我認爲您想要參考的列是您在數據中定義的q0列，而不是不存在的列，名稱爲qval0。