Anwenden eines ggplot-Funktion pro Gruppe mit dplyr und Titel festlegen pro Gruppe

Ich würde gerne erstellen Sie einen separaten plot pro Gruppe in einem Daten-frame und nehmen Sie die Gruppe in die Titel.

Mit den iris-Datensatz kann ich in base-R und ggplot dies

plots1 <- lapply(split(iris, iris$Species), 
  function(x) 
    ggplot(x, aes(x=Petal.Width, y=Petal.Length)) +
      geom_point() +
      ggtitle(x$Species[1]))

Gibt es ein äquivalent mit dplyr?

Hier ein Versuch, mithilfe von Facetten statt Titel.

p <- ggplot(data=iris, aes(x=Petal.Width, y=Petal.Length)) + geom_point()
plots2 = iris %>% group_by(Species) %>% do(plots = p %+% . + facet_wrap(~Species))

wo ich %+% zu ersetzen, die den dataset in p mit der Teilmenge, die für jeden Anruf.

Anwenden eines ggplot-Funktion pro Gruppe mit dplyr und Titel festlegen pro Gruppe

oder (Arbeits-aber-Komplex) mit ggtitle

plots3 = iris %>%
  group_by(Species) %>%
  do(
    plots = ggplot(data=.) +
      geom_point(aes(x=Petal.Width, y=Petal.Length)) +
      ggtitle(. %>% select(Species) %>% mutate(Species=as.character(Species)) %>% head(1) %>% as.character()))

Anwenden eines ggplot-Funktion pro Gruppe mit dplyr und Titel festlegen pro Gruppe

Das problem ist, dass ich kann nicht scheinen, um die Titel pro Gruppe mit ggtitle in einer sehr einfachen Weise.

Dank!

InformationsquelleAutor bytesinflight | 2015-03-13
  1. 41

    Verwenden .$Species zu ziehen, die Arten von Daten in ggtitle:

    iris %>% group_by(Species) %>% do(plots=ggplot(data=.) +
         aes(x=Petal.Width, y=Petal.Length) + geom_point() + ggtitle(unique(.$Species)))
    • Ich Neige dazu, dieses problem zu lösen über eine custom-Funktion wo ich species[1] zu geben Sie die Titel. Aber wenn Sie Ihre eigentliche plot ist einfach, das funktioniert sicherlich. IE--mein workflow ist oft plot.cust <- function(...); iris %>% group_by(Species) %>% plot.cust(...)
    • Sehr einfache Lösung, nicht auftreten, zu mir! Danke!
    • könnte teuer werden, nicht?
    • Ich glaube schon, aber es sieht ein bisschen klarer, als .$Species[1].
    • Sie könnte auch mit dplyr-wie first(.$Species)
    • Eigentlich nur mit ggtitle(.$Arten) scheint zu funktionieren, aber ich weiß nicht, warum, und ich habe nicht geprüft, die Geschwindigkeit jedes der Vorschläge. Nochmals vielen Dank!

    InformationsquelleAutor James
  2. 2

    Vom dplyr 0.8.0 wir können group_map :

    library(dplyr, warn.conflicts = FALSE, quietly = TRUE)
#> Warning: le package 'dplyr' a été compilé avec la version R 3.5.2
library(ggplot2)
plots3 <- iris %>%
  group_by(Species) %>%
  group_map(~tibble(plots=list(
    ggplot(.) + aes(x=Petal.Width, y=Petal.Length) + geom_point() + ggtitle(.y[[1]]))))

plots3
#> # A tibble: 3 x 2
#> # Groups:   Species [3]
#>   Species    plots   
#>   <fct>      <list>  
#> 1 setosa     <S3: gg>
#> 2 versicolor <S3: gg>
#> 3 virginica  <S3: gg>
plots3$plots[[2]]

    Anwenden eines ggplot-Funktion pro Gruppe mit dplyr und Titel festlegen pro Gruppe

    Erstellt am 2019-02-18 durch die reprex Paket (v0.2.0).

    InformationsquelleAutor Moody_Mudskipper
  3. 1

    Dies ist eine weitere option mit rowwise:

    plots2 = iris %>% 
    group_by(Species) %>% 
    do(plots = p %+% .) %>% 
    rowwise() %>%
    do(x=.$plots + ggtitle(.$Species))
    InformationsquelleAutor Matthew Plourde
Schreibe einen Kommentar