Wysyłanie w kolumnie Nazwa do ddply z funkcji

Question

Chciałbym móc wysłać nazwę kolumny do połączenia, które wykonuję do ddply. Przykładem ddply wezwanie:

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

Jeśli mam ddply owinięty wewnątrz innej funkcji możliwe jest owinąć to tak, że może przejść w dowolnej wartości jako myColumnName do funkcji wywołującej?

Answer 1

Musi istnieć lepszy sposób. I nie mogłem wymyślić, jak zrobić to z podsumowaniem.

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

To wydaje się działać, choć prawdopodobnie będzie czystsze (i bezpieczniejsze), aby uniknąć summarise w takiej sytuacji i napisać własną funkcję anonimową jak wskazano Justin.

yr <- "year" 

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

Answer 3

Jak to powiedział @David Arenburg, to pytanie jest dość stare. Dzisiaj pakiet data.table lub dplyr może dać taki sam rezultat przy znacznie większej prędkości. To jest wersja data.table odpowiedzi.

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

Answer 4

Chyba znalazłem sposób, że działa z przedstawiono podsumowanie. Nie jestem pewien, czy rozumiem dlaczego, ponieważ nie jestem ekspertem w kontaktach ze środowiskami w R, ale tutaj jest rozwiązanie:

> 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 
> 

EDIT: Można użyć funkcji get z pakietu podstawowego, jak sugeruje tutaj: 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