Placer une légende pour chaque facet_wrap de la grille de ggplot2
J'ai cette trame de données:
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))
Je voudrais mettre une légende à droite à côté de chaque facet_wrap
réseau, sa propre FileSystem
:
Quand je fais cela, il met à la légende sur le côté de la parcelle de terrain pour tous les FileSystem
. Est-il possible de mettre FileSystem
appartiennent à chaque serveur à côté de chaque grille?
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)
Vous devez vous connecter pour publier un commentaire.
Meh, @joran me battre pour elle (mon
gridExtra
était hors de date, mais m'a pris 10 minutes pour s'en rendre compte). Voici une solution similaire, mais celui-ci peaux le chat de façon générique par niveaux dansServer
.droplevels()
avait une méthode pourdata.frame
s. C'est très pratique!La meilleure façon de le faire est avec la gridExtra package:
geom_jitter
et je ne sais pas pourquoi, mais je l'ai laissé comme ça. Les points sont là, mais difficile à voir.%+%
de l'opérateur. Pouvez-vous nous expliquer ce qu'il fait?Au lieu d'utiliser les facettes, nous pourrions faire une liste de parcelles par groupe, puis utiliser cowplot::plot_grid pour le traçage. Chacun aura sa propre légende:
Comme suggéré par @armé d'une hache, on pourrait ajouter des étiquettes à l'aide de
facet_grid(~Server)
, au lieu delabels = levels(x$Server)
.+ facet_grid(~Server)
. À l'aide dealign = 'v'
dansplot_grid
va donner un plus bel aspect.