Wie fügen Sie Facetten in ggplot2 eine allgemeine Bezeichnung hinzu?

Oft habe ich numerische Werte für die Facettierung.
Ich wünschte, ausreichende Informationen bereitzustellen, zu interpretieren, diese Facettierung Werte in einer zusätzlichen Titel, ähnlich wie die Achse Titel.
Der Etikettierer Optionen wiederholen viel unnötigen text und sind unbrauchbar für mehr variable Titel.

Irgendwelche Vorschläge?

Dem Standard:

test<-data.frame(x=1:20, y=21:40, facet.a=rep(c(1,2),10), facet.b=rep(c(1,2), each=20))
qplot(data=test, x=x, y=y, facets=facet.b~facet.a)

Wie fügen Sie Facetten in ggplot2 eine allgemeine Bezeichnung hinzu?

Was ich Liebe:

Wie fügen Sie Facetten in ggplot2 eine allgemeine Bezeichnung hinzu?

Kann ich das beste in ggplot:

qplot(data=test, x=x, y=y)+facet_grid(facet.b~facet.a, labeller=label_both)

Wie fügen Sie Facetten in ggplot2 eine allgemeine Bezeichnung hinzu?

Wie von @Hendy, ähnlich:
hinzufügen einer sekundären y-Achse zu ggplot2-plots - machen es perfekt

Kommentar zu dem Problem
Heilige Kuh. Ich wurde nur suchen, finden diese über google... und jetzt sehen, es wurde gebeten, vor einer minute. Diese Frage scheint zu Fragen, die gleiche Sache, die, basierend auf seinem Kommentar, trotz der Titel, die möglicherweise anderes bedeuten. Große Prototypen zu veranschaulichen. Das ist genau mein problem-es wäre schön, wenn ich nicht haben, zu erklären, meine numerische Facette Kategorien. Die Grafik sollte für sich sprechen, mit einem einfachen label erklären, was die Facettierung Variablen waren. Kommentarautor: Hendy
Ich fragte, ähnliche Frage wie in der Vergangenheit. Kommentarautor: MYaseen208
Ich erkundigte mich bei Winston Chang (weiß nicht, seine SO handhaben), eine der wichtigsten ggplot-Entwickler, per E-Mail. Er glaubt nicht, dass dies ist derzeit eine option, aber vielleicht sollten Sie erwägen es. Er schlug vor, dass ich hinzufügen, die ein Problem auf github, also habe ich Kommentarautor: Hendy
Ja, ich denke, es ist eine tolle Idee auch, aber Sie haben keine Ahnung, wie schwer es ist das zu tun, im Allgemeinen. Kommentarautor: hadley
Sieht aus wie dieser kam auf der mailing-Liste und Winston lass es mich wissen. Er erstellt einen Zweig mit einer Allgemeinen Umsetzung dieser für top-labels. Siehe den thread hier. @hadley: Sie sind richtig. Ich habe keine Ahnung, wie schwer es ist das zu tun, im Allgemeinen. Wenn dies nie passiert... meine Dankbarkeit für ggplot noch herrscht 🙂 Kommentarautor: Hendy

InformationsquelleAutor der Frage Etienne Low-Décarie | 2012-07-05

  1. 44

    Als die neueste ggplot2 verwendet gtable intern, es ist ganz einfach zu ändern, eine Abbildung:

    library(ggplot2)
test <- data.frame(x=1:20, y=21:40, 
                   facet.a=rep(c(1,2),10), 
                   facet.b=rep(c(1,2), each=20))
p <- qplot(data=test, x=x, y=y, facets=facet.b~facet.a)

# get gtable object
z <- ggplotGrob(p)

library(grid)
library(gtable)
# add label for right strip
z <- gtable_add_cols(z, unit(z$widths[[7]], 'cm'), 7)
z <- gtable_add_grob(z, 
                     list(rectGrob(gp = gpar(col = NA, fill = gray(0.5))),
                          textGrob("Variable 1", rot = -90, gp = gpar(col = gray(1)))),
                     4, 8, 6, name = paste(runif(2)))

# add label for top strip
z <- gtable_add_rows(z, unit(z$heights[[3]], 'cm'), 2)
z <- gtable_add_grob(z, 
                     list(rectGrob(gp = gpar(col = NA, fill = gray(0.5))),
                          textGrob("Variable 2", gp = gpar(col = gray(1)))),
                     3, 4, 3, 6, name = paste(runif(2)))

# add margins
z <- gtable_add_cols(z, unit(1/8, "line"), 7)
z <- gtable_add_rows(z, unit(1/8, "line"), 3)

# draw it
grid.newpage()
grid.draw(z)

    Wie fügen Sie Facetten in ggplot2 eine allgemeine Bezeichnung hinzu?

    Natürlich können Sie eine Funktion schreiben, die automatisch den strip labels. Eine zukünftige version von ggplot2 möglicherweise haben diese Funktion; nicht sicher, obwohl.

    InformationsquelleAutor der Antwort kohske

  2. 1

    Neben der Methode beschrieben von kohske, Sie können hinzufügen eines Rahmens zu den Boxen Hinzugefügt werden, indem Sie ändern

    col=NA

    zu

    col=gray(0.5), linetype=1

    Ändern Sie auch

    fill=gray(0.5)

    für

    fill=grey(0.8)

    und

    gp=gpar(col=gray(1))

    zu

    gp=gpar(col=gray(0))

    Wenn Sie möchten, dass der neue Balken entsprechen den Facetten-Etiketten

    ie

    z <- gtable_add_grob(z, 
      list(rectGrob(gp = gpar(col = gray(0.5), linetype=1, fill = gray(0.8))),
      textGrob("Variable 1", rot = -90, gp = gpar(col = gray(0)))),
      4, 8, 6, name = paste(runif(2)))

    InformationsquelleAutor der Antwort Shannon Hodges

  3. 0

    Kann es einen besseren Weg, es zu tun, aber Sie können :

    fac1 = factor(rep(c('a','b'),10))
fac2 = factor(rep(c('a','b'),10))
data = data.frame(x=1:10, y=1:10, fac1=fac1, fac2=fac2)
p = ggplot(data,aes(x,y)) + ggplot2::geom_point() + 
facet_grid(fac1~fac2)
p + theme(plot.margin = unit(c(1.5,1.5,0.2,0.2), "cm"))
grid::grid.text(unit(0.98,"npc"),0.5,label = 'label ar right', rot = 270) # right
grid::grid.text(unit(0.5,"npc"),unit(.98,'npc'),label = 'label at top', rot = 0)   # top

    InformationsquelleAutor der Antwort Diogo

Schreibe einen Kommentar