Wie kann ich mit dplyr eine Funktion auf alle Nicht-Group_by-Spalten anwenden?

Ich versuche, das dplyr-package anwenden einer Funktion auf alle Spalten eines data.Rahmen nicht gruppiert, was ich tun würde, mit aggregate():

aggregate(. ~ Species, data = iris, mean)

wo mean gilt für alle Spalten, die nicht zur Gruppierung verwendet wird. (Ja, ich weiß, ich kann in kollektiver Form, aber ich versuche zu verstehen dplyr.)

Kann ich verwenden summarize wie diese:

species <- group_by(iris, Species)
summarize(species,
          Sepal.Length = mean(Sepal.Length),
          Sepal.Width = mean(Sepal.Width))

Aber ist es ein Weg, um mean() angewendet alle Spalten, die nicht gruppiert, ähnlich wie die . ~ notation aggregate()? Ich habe einen Daten.Rahmen mit 30 Spalten, die ich will, zu aggregieren, so schreiben Sie die einzelnen Aussagen nicht ideal ist.

InformationsquelleAutor der Frage kmm | 2014-03-25

  1. 34

    Wenn Sie bereit sind, zu versuchen, eine experimentelle dplyr, können Sie versuchen, den
    neue (noch experimentelle) summarise_each():

    devtools::install_github("hadley/dplyr", ref = "colwise")

library(dplyr)
iris %.%
  group_by(Species) %.%
  summarise_each(funs(mean))
## Source: local data frame [3 x 5]
## 
##      Species Sepal.Length Sepal.Width Petal.Length Petal.Width
## 1     setosa        5.006       3.428        1.462       0.246
## 2 versicolor        5.936       2.770        4.260       1.326
## 3  virginica        6.588       2.974        5.552       2.026

iris %.%
  group_by(Species) %.%
  summarise_each(funs(min, max))
## Source: local data frame [3 x 9]
## 
##      Species Sepal.Length_min Sepal.Width_min Petal.Length_min
## 1     setosa              4.3             2.3              1.0
## 2 versicolor              4.9             2.0              3.0
## 3  virginica              4.9             2.2              4.5
## Variables not shown: Petal.Width_min (dbl), Sepal.Length_max (dbl),
##   Sepal.Width_max (dbl), Petal.Length_max (dbl), Petal.Width_max (dbl)

    Feedback sehr geschätzt!

    Dieser erscheint in dplyr 0.2.

    InformationsquelleAutor der Antwort hadley

  2. 4

    Diese erhalten Sie fast alle den Weg in dplyr.

    h = iris %.%
  group_by(Species) %.%
  do(function(d){
    sapply(Filter(is.numeric, d), mean)  
  })

as.data.frame(h)

    InformationsquelleAutor der Antwort Ramnath

Schreibe einen Kommentar