具有dplyr的用戶定義函數-根據組合參數對列進行突變

Question

我正在使用以下示例數據開發一個閃亮的應用程序：

library(tidyr)
library(dplyr)

df <- data.frame(Year = rep(2014:2017, each = 10),
                 ID = rep(1:10, times = 4),
                 Score1 = runif(40),
                 Score2 = runif(40),
                 Score3 = runif(40)) %>% 
  gather(Score1, Score2, Score3, key = "Measure", value = "Value") %>% 
  unite(Measure, Year, col = "Measure", sep = "_") %>% 
  spread(Measure, Value)

這使：

> glimpse(df)
Observations: 10
Variables: 13
$ ID          <int> 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
$ Score1_2014 <dbl> 0.03936843, 0.62027828, 0.56994489, 0.94410280, 0.98747476, 0.78021699, 0.5...
$ Score1_2015 <dbl> 0.456492381, 0.881373411, 0.601315132, 0.003073382, 0.436619197, 0.49193024...
$ Score1_2016 <dbl> 0.4937857, 0.4414206, 0.6716621, 0.2483740, 0.2376593, 0.4231311, 0.5250772...
$ Score1_2017 <dbl> 0.6824536, 0.1020127, 0.9973474, 0.4304465, 0.9194684, 0.8938086, 0.9133654...
$ Score2_2014 <dbl> 0.01550399, 0.03318784, 0.31463461, 0.99324685, 0.19417234, 0.10408623, 0.9...
$ Score2_2015 <dbl> 0.7631779, 0.4471922, 0.9119910, 0.5792838, 0.8458717, 0.9716529, 0.9580503...
$ Score2_2016 <dbl> 0.78565372, 0.20382477, 0.04103231, 0.33246223, 0.65301709, 0.03227641, 0.3...
$ Score2_2017 <dbl> 0.320235691, 0.211477745, 0.575208127, 0.290498894, 0.696220903, 0.94622610...
$ Score3_2014 <dbl> 0.93234031, 0.40570043, 0.07134056, 0.83916278, 0.57897129, 0.59457072, 0.3...
...

我想創建一個允許選擇分數類型（例如用戶定義的函數Score1 ， Score2 ，或Score3 ），開始一年（ year_from ）和結束年（ year_to ），並計算年之間的差異。 例如，選擇Score1 ， 2015和2016將給予：

   ID Score1_2016 Score1_2015        Diff
1   1   0.4937857 0.456492381  0.03729332
2   2   0.4414206 0.881373411 -0.43995279
3   3   0.6716621 0.601315132  0.07034700
4   4   0.2483740 0.003073382  0.24530064
5   5   0.2376593 0.436619197 -0.19895987
6   6   0.4231311 0.491930246 -0.06879918
7   7   0.5250772 0.596241541 -0.07116431
8   8   0.1416265 0.019224651  0.12240182
9   9   0.7573208 0.073456457  0.68386434
10 10   0.3575724 0.566328136 -0.20875574

---

我已閱讀的文檔與編程dplyr ，但在我的使用不是很自信quosures 。 嘗試以下公式失敗：

selectr <- function(data, value, year_from, year_to){
  recent <- max(year_from, year_to) # determine earlier year
  older <- min(year_from, year_to)
  recent.name <- paste(value, recent, sep = "_") # Create column names from original df
  older.name <- paste(value, older, sep = "_")
  recent.name <- enquo(recent.name) 
  older.name <- enquo(older.name)

  data %>% 
    select(ID, !!recent.name, !!older.name) %>% 
    mutate(Diff = !!recent.name - !!older.name)
}


selectr(data = df, 
        value = "Score1", 
        year_from = 2015, 
        year_to = 2016)

產生錯誤： Error in !older.name : invalid argument type

如果我省略了mutate(Diff = !!recent.name - !!older.name) ，則該函數的其余部分都可以正常工作，但是我確實需要在公式中進行差值計算。

Answer 1

我認為您需要更改兩項才能使功能正常工作：

1. 您想將最近的名稱和更舊的名稱從字符串轉換為符號。 這可以通過as.name()函數來實現。 函數enquo()將“ promise”對象轉換為quosure（符號）。
2. mutate步驟中的運算符優先級似乎存在問題。 如果你改變!! 通過UQ() （等效）解決了該問題。

這是一個更正的版本：

selectr <- function(data, value, year_from, year_to) {

  recent <- max(year_from, year_to) 
  older <- min(year_from, year_to)
  recent.name <- paste(value, recent, sep = "_") 
  older.name <- paste(value, older, sep = "_")
  recent.name <- as.name(recent.name) 
  older.name <- as.name(older.name)

  data %>% 
    select(ID, UQ(recent.name), UQ(older.name)) %>% 
    mutate(Diff = UQ(recent.name) - UQ(older.name))

}

selectr(data = df, 
        value = "Score1", 
        year_from = 2015, 
        year_to = 2016)