在函數內部使用ddply（非標準評估）

Question

我在包裝函數中使用ddply（來自包的R）。我想基於變量的值來總結我的數據集。但是，wrap函數必須定義我想要彙總的變量。

如果沒有包裝的功能，我可以採取以下方法：

require(plyr) 

# Create sample dataframe: 
sample_df <- data.frame(a = rep(1:3, 2), b = rep(3:1, 2), c = rep(c("a", "b"), 3)) 

sample_df 
    a b c 
1 1 3 a 
2 2 2 b 
3 3 1 a 
4 1 3 b 
5 2 2 a 
6 3 1 b 

# Use ddply to summarize the dataframe: 
ddply(sample_df, .(a), summarize, mean = mean(b), var = var(b)) 
    a mean var 
1 1 3 0 
2 2 2 0 
3 3 1 0 

但是，使用保鮮功能，我沒有得到相同的結果：

sumfun <- function(df, v) { # summarize a given dataframe by a given variable, 
    d <- ddply(df, .(v), summarize, mean = mean(b), var = var(b)) 
    return(d) 
} 

# Output using the function: 
sumfun(sample_df, "a") 
    v mean var 
1 a 3 NA 

爲什麼行爲ddply在函數中使用它有什麼不同？我曾嘗試在函數內部使用substitute(v)和eval(substitute(v))，但它沒有區別。

Answer 1

的plyr包及其ddply功能是一種過時的，演變成dplyr，tidyr和類似的包（如tidyverse參考）。

# library(tidyverse) 
library(dplyr) 

你正在嘗試完成可翻譯如下：

sample_df %>% 
    group_by(a) %>% 
    summarize(mean = mean(b), var = var(b)) 
# # A tibble: 3 × 3 
#  a mean var 
# <int> <dbl> <dbl> 
# 1  1  3  0 
# 2  2  2  0 
# 3  3  1  0 

而且，對於功能的方法：

sumfun <- function(df, v) { 
    df %>% 
     group_by_(v) %>% 
     summarize(mean = mean(b), var = var(b)) 
} 

sumfun(sample_df, 'a') 
# # A tibble: 3 × 3 
#  a mean var 
# <int> <dbl> <dbl> 
# 1  1  3  0 
# 2  2  2  0 
# 3  3  1  0 

注意在group_by_存在的功能最終_需要做標準評估。有關詳細信息，請參閱vignette("nse")。