ggplot séparer la légende et l'intrigue

Je suis en utilisant le grille lpackage pour placer mes graphiques que j'ai fait avec ggplot2:

library(ggplot2)
library(grid)

Layout <- grid.layout(nrow = 4, ncol = 4,
          widths = unit(1, "null"), 
          heights = unit(c(0.4, 0.8, 1.2, 1.2), c("null", "null", "null")))
grid.show.layout(Layout)

plot1 = ggplot(diamonds, aes(clarity, fill = color)) + 
            geom_bar() + 
            facet_wrap(~cut, nrow = 1)
print(plot1 + theme(legend.position = "none"), 
vp = viewport(layout.pos.row = 3, layout.pos.col = 1:4))

Le problème est que je veux mettre le tracé de la troisième rangée (3,1) - (3,4) et de mettre la légende à l' (4,4) position. Malheureusement, je ne peux pas vraiment trouver un moyen de créer une légende de la variable.
J'ai cherché en ligne et le plus proche que j'ai eu à utiliser les anciens
+ opts(keep = "legend_box") mais qui a été abandonnée.

âgées solution.

source d'informationauteur user1690049

Leave a Reply

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *