Legen Sie eine Legende für jeden facet_wrap raster in ggplot2

Habe ich diese Daten Rahmen:

        Date Server FileSystem PercentUsed
1  12/1/2011      A          /          60
2   1/2/2012      A       /var          50
3   2/1/2012      A        tmp          90
4  2/10/2012      A        /db          86
5  2/13/2012      A       /app          90
6  12/1/2011      B         C:          67
7   1/2/2012      B         D:          67
8   2/1/2012      B         F:          34
9  2/10/2012      B   /restore          89
10 2/13/2012      B         G:          56
11 12/1/2011      C          /          90
12  1/2/2012      C       /tmp          78
13  2/1/2012      C      /data          67
14 2/10/2012      C   /Storage          34
15 2/13/2012      C  /database          12

dput(x)
structure(list(Date = structure(c(2L, 1L, 3L, 4L, 5L, 2L, 1L, 
3L, 4L, 5L, 2L, 1L, 3L, 4L, 5L), .Label = c("1/2/2012", "12/1/2011", 
"2/1/2012", "2/10/2012", "2/13/2012"), class = "factor"), Server = structure(c(1L, 
1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L), .Label = c("A", 
"B", "C"), class = "factor"), FileSystem = structure(c(1L, 9L, 
14L, 5L, 2L, 10L, 11L, 12L, 6L, 13L, 1L, 8L, 3L, 7L, 4L), .Label = c("/", 
"/app", "/data", "/database", "/db", "/restore", "/Storage", 
"/tmp", "/var", "C:", "D:", "F:", "G:", "tmp"), class = "factor"), 
    PercentUsed = c(60L, 50L, 90L, 86L, 90L, 67L, 67L, 34L, 89L, 
    56L, 90L, 78L, 67L, 34L, 12L)), .Names = c("Date", "Server", 
"FileSystem", "PercentUsed"), class = "data.frame", row.names = c(NA, 
-15L))

Ich würde gerne eine Legende rechts neben jedem facet_wrap Gitter, seine eigenen FileSystem:

Wenn ich das mache, bringt es die Legende, auf der Seite der Handlung für alle von der FileSystem. Ist es möglich FileSystem gehören auf jeden server neben jedem Gitter?

ggplot(x, aes(Date, PercentUsed, group=1, colour=FileSystem)) + 
     geom_jitter(size=0.5) + geom_smooth(method="loess", se=T) + 
     facet_wrap(~Server, ncol=1)

InformationsquelleAutor user1471980 | 2013-02-12

25

Meh, @joran mich zu schlagen (meine gridExtra war veraltet, aber nahm mir 10 Minuten um es zu realisieren). Hier ist eine ähnliche Lösung, aber diese skins die Katze allgemein durch Ebenen in Server.
```
library(gridExtra)
out <- by(data = x, INDICES = x$Server, FUN = function(m) {
      m <- droplevels(m)
      m <- ggplot(m, aes(Date, PercentUsed, group=1, colour = FileSystem)) + 
         geom_jitter(size=2) + geom_smooth(method="loess", se=T)
   })
do.call(grid.arrange, out)

# If you want to supply the parameters to grid.arrange
do.call(grid.arrange, c(out, ncol=3))
```
- Sehr schön. Ich wusste gar nicht, dass droplevels() hatte eine Methode für data.frames. Das ist praktisch!
- Gibt es eine nette Möglichkeit, um Kraft, Ausrichtung, d.h. halten Grundstücksfläche Breite gleich? Verschreiben Legende Breite?
- erwägen, in die Legende oben auf der ersten Abbildung und entfernen Sie es aus dem rest.
- In der Tat, ich landete bewegen, alle Legenden nach oben in eine inzwischen. Ich kann nicht mit einer einzigen Legende, wie Sie einmalig pro plot. Aber es wäre schön zu wissen, ob es einen Weg gibt, zu verschreiben breiten.
- erwägen Sie, eine neue Frage, obwohl, soweit ich weiß, ist es nicht möglich (es ist möglich, zu definieren, Ränder, obwohl).
InformationsquelleAutor Roman Luštrik
26

Der beste Weg, dies zu tun ist mit der gridExtra Paket:
```
library(gridExtra)

xs <- split(x,f = x$Server)
p1 <- ggplot(xs$A,aes(x = Date,y = PercentUsed,group = 1,colour = FileSystem)) + 
        geom_jitter(size=0.5) + 
        geom_smooth(method="loess", se=T) + 
        facet_wrap(~Server, ncol=1)

p2 <- p1 %+% xs$B
p3 <- p1 %+% xs$C

grid.arrange(p1,p2,p3)
```
- Ich sollte beachten Sie, dass Sie die Punkte sehr klein geom_jitter und ich bin mir nicht sicher, warum, aber ich ließ es so wie es ist. Die Punkte sind da, aber schwer zu sehen.
- Ich bin ein bisschen fasziniert, mit der %+% Betreiber. Können Sie bitte erklären, was es tut?
- Es ist ein Weg, um einen ggplot-Objekt "modular" in dem Sinne, dass Sie können es verwenden, um einfach fallen lassen in eine neue Daten-frame, aber alle nutzen die gleiche geometrie Spezifikationen aus einer vorherigen Handlung. Natürlich, es wird nur funktionieren, wenn die Spaltennamen gleich sind, und wenn Sie noch nicht, verwendet andere - Daten-frames in andere Ebenen.
- +1 vielen Dank für Ihre prompte Antwort. Dies ist eine so fantastische Möglichkeit, wieder mit den Objekten!
- wie können Sie jede Handlung im Netz nehmen Sie gleich Platz, so dass Ihre x-ticks ausrichten?
- Es erfordert einige Arbeit. Siehe hier (und die links darin) für einige Ideen.
InformationsquelleAutor joran
4

Anstelle der Verwendung von Facetten, wir könnten eine Liste der plots pro Gruppe, dann verwenden Sie cowplot::plot_grid für das zeichnen. Jeder wird seine eigene Legende:
```
# make list of plots
ggList <- lapply(split(x, x$Server), function(i) {
  ggplot(i, aes(Date, PercentUsed, group = 1, colour = FileSystem)) + 
    geom_jitter(size = 2) +
    geom_smooth(method = "loess", se = TRUE)})

# plot as grid in 1 columns
cowplot::plot_grid(plotlist = ggList, ncol = 1,
                   align = 'v', labels = levels(x$Server))
```
Vorgeschlagen von @Axeman, könnten wir hinzufügen-Etiketten mit facet_grid(~Server) statt labels = levels(x$Server).
- Toll. Wenn Sie möchten, dass die grauen Facette Streifen angezeigt werden, können Sie noch hinzufügen + facet_grid(~Server). Mit align = 'v' im plot_grid geben ein besser aussehendes Ergebnis.
- guter Punkt, um "v", danke, aktualisiert. Ich wollte vermeiden, mit Facette, so verwendet Labels statt.
InformationsquelleAutor zx8754

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.