從列名發送到ddply從函數

Question

我希望能夠發送一個列名稱給我打電話給ddply。一個例子ddply電話：

ddply(myData, .(MyGrouping), summarise, count=sum(myColumnName)) 

如果我已經ddply包裹另一個函數內是有可能把這個包起來，這樣我可以作爲myColumnName調用函數的任意值傳遞？

Answer 1

必須有更好的方法。我無法弄清楚如何使它與總結一起工作。

my.fun <- function(df, count.column) { 
    ddply(df, .(x), function(d) sum(d[[count.column]])) 
} 

dat <- data.frame(x=letters[1:2], y=1:10) 

> my.fun(dat, 'y') 
    x V1 
1 a 25 
2 b 30 
> 

Answer 2

這似乎工作，儘管它可能會更清潔（更安全），以避免在這種情況下summarise，寫自己的匿名函數賈斯汀表示。

yr <- "year" 

summarise(baseball, 
duration = max(eval(parse(text = yr))) - min(eval(parse(text = yr)))) 

Answer 3

正如@David Arenburg所說的那樣，這個問題相當古老。今天，data.table或dplyr軟件包可以以更快的速度爲您提供相同的結果。

這裏是data.table版本的答案。

library(data.table) 
my.fun <- function(myData, MyGrouping, myColumnName) { 
    setDT(myData)[, lapply(.SD, sum), by=MyGrouping, .SDcols=myColumnName] 
} 

Answer 4

我想我找到了一種方法是工作與總結。我不知道如果我明白爲什麼，因爲我不是專家，與環境中的R處理，但這裏的解決方案：

> library(plyr) 
> 
> 
> 
> ########################### 
> # Creating test DataFrame # 
> ########################### 
> 
> x <- 1:15 
> 
> set.seed(1) 
> y <- letters[1:3][sample(1:3, 15, replace = T)] 
> 
> df <- data.frame(x, y) 
> 
> ### check df 
> df 
    x y 
1 1 a 
2 2 b 
3 3 b 
4 4 c 
5 5 a 
6 6 c 
7 7 c 
8 8 b 
9 9 b 
10 10 a 
11 11 a 
12 12 a 
13 13 c 
14 14 b 
15 15 c 
> 
> 
> ##################### 
> # auxiliar function # 
> ##################### 
> evalString <- function(s) { 
+ eval(parse(text = s), parent.frame()) 
+ } 
> 
> 
> ### columnName input 
> columnName <- 'x' 
> 
> ### call with columnName as input 
> xMeans <- ddply(df, 
+     'y', 
+     summarise, 
+     mean = mean(evalString(columnName))) 
> 
> 
> ### regular call to ddply 
> xMeans2 <- ddply(df, 
+     'y', 
+     summarise, 
+     mean = mean(x)) 
> 
> 
> ### Compare Results 
> xMeans 
    y mean 
1 a 7.8 
2 b 7.2 
3 c 9.0 
> xMeans2 
    y mean 
1 a 7.8 
2 b 7.2 
3 c 9.0 
> 

編輯：您可以使用get功能從基礎包，作爲建議這裏：ddply: how do I pass column names as parameters?

> xMeans3 <- ddply(df, 
+     'y', 
+     summarise, 
+     mean = mean(get(columnName))) 
> 
> xMeans3 
    y mean 
1 a 7.8 
2 b 7.2 
3 c 9.0