ggplot2: Divisez la légende en deux colonnes, chacune avec son propre fichier

Vous pouvez déplacer la "Très Bonne" catégorie de la deuxième colonne de la légende par l'ajout d'un mannequin facteur de niveau et réglage de sa couleur en blanc dans la légende, de sorte qu'il ne peut pas être vu. Dans le code ci-dessous, nous ajoutons un vide facteur de niveau entre les "Bons" et "Très Bon", de sorte que nous avons maintenant six niveaux. Ensuite, nous utilisons scale_fill_manual pour définir la couleur de ce nouveau niveau de "blanc". drop=FALSE forces ggplot pour maintenir le vide au niveau de la légende. Il pourrait y avoir une façon plus élégante de contrôle où ggplot endroits les valeurs de la légende, mais au moins cela permettra de faire le travail.

diamonds$cut = factor(diamonds$cut, levels=c("Fair","Good"," ","Very Good",
                                             "Premium","Ideal"))

ggplot(diamonds, aes(color, fill=cut)) + geom_bar() + 
  scale_fill_manual(values=c(hcl(seq(15,325,length.out=5), 100, 65)[1:2], 
                             "white",
                             hcl(seq(15,325,length.out=5), 100, 65)[3:5]),
                    drop=FALSE) +
  guides(fill=guide_legend(ncol=2)) +
  theme(legend.position="bottom")

Mise à JOUR:je l'espère, il ya une meilleure façon d'ajouter des titres de chaque groupe dans la légende, mais la seule option que je peux trouver pour l'instant est de recourir à la grobs, qui me donne toujours un mal de tête. Le code ci-dessous est une adaptation de la réponse à cette SORTE de question. Il ajoute deux texte grobs, un pour chaque étiquette, mais les étiquettes doivent être positionnés à la main, qui est une énorme douleur. Le code de la parcelle doit également être modifié pour créer plus d'espace pour la légende. En outre, même si j'ai désactivé l'écrêtage pour tous les grobs, les étiquettes sont encore coupées par la légende grob. Vous pouvez positionner les étiquettes à l'extérieur de la zone tondue, mais alors, ils sont trop loin de la légende. J'espère que quelqu'un qui vraiment sait comment travailler avec les grobs pouvez résoudre ce problème et, plus généralement, améliorer le code ci-dessous (@baptiste, êtes-vous là?).

library(gtable)

p = ggplot(diamonds, aes(color, fill=cut)) + geom_bar() + 
  scale_fill_manual(values=c(hcl(seq(15,325,length.out=5), 100, 65)[1:2], 
                             "white",
                             hcl(seq(15,325,length.out=5), 100, 65)[3:5]),
                    drop=FALSE) +
  guides(fill=guide_legend(ncol=2)) +
  theme(legend.position=c(0.5,-0.26),  
        plot.margin=unit(c(1,1,7,1),"lines")) +
  labs(fill="") 

# Add two text grobs
p = p + annotation_custom(
    grob = textGrob(label = "First\nGroup", 
                    hjust = 0.5, gp = gpar(cex = 0.7)),
    ymin = -2200, ymax = -2200, xmin = 3.45, xmax = 3.45) +
  annotation_custom(
    grob = textGrob(label = "Second\nGroup",
                    hjust = 0.5, gp = gpar(cex = 0.7)),
    ymin = -2200, ymax = -2200, xmin = 4.2, xmax = 4.2)

# Override clipping
gt <- ggplot_gtable(ggplot_build(p))
gt$layout$clip <- "off"
grid.draw(gt)

Et voici le résultat:

En suivant l'idée de @eipi10, vous pouvez ajouter le nom des titres comme des étiquettes, avec white valeurs:

diamonds$cut = factor(diamonds$cut, levels=c("Title 1           ","Fair","Good"," ","Title 2","Very Good",
"Premium","Ideal"))
ggplot(diamonds, aes(color, fill=cut)) + geom_bar() + 
scale_fill_manual(values=c("white",hcl(seq(15,325,length.out=5), 100, 65)[1:2], 
"white","white",
hcl(seq(15,325,length.out=5), 100, 65)[3:5]),
drop=FALSE) +
guides(fill=guide_legend(ncol=2)) +
theme(legend.position="bottom", 
legend.key = element_rect(fill=NA),
legend.title=element_blank())

Je introduire quelques espaces blancs après "Title 1 " pour séparer les colonnes et d'améliorer la conception, mais il pourrait y avoir une option pour augmenter l'espace.

Le seul problème est que je n'ai aucune idée de comment changer le format de la "titre" étiquettes (j'ai essayé bquote ou expression mais il ne fonctionne pas).

_____________________________________________________________

Selon le graphique que vous tentezun alignement à droite de la légende pourrait être une meilleure alternative, et ce truc a l'air mieux (à mon humble avis). Il sépare la légende en deux, et d'utiliser l'espace au mieux. Tout ce que vous avez à faire est de changer le ncol retour à 1et "bottom" (legend.position) à "right":

diamonds$cut = factor(diamonds$cut, levels=c("Title 1","Fair","Good"," ","Title 2","Very Good","Premium","Ideal"))
ggplot(diamonds, aes(color, fill=cut)) + geom_bar() + 
scale_fill_manual(values=c("white",hcl(seq(15,325,length.out=5), 100, 65)[1:2], 
"white","white",
hcl(seq(15,325,length.out=5), 100, 65)[3:5]),
drop=FALSE) +
guides(fill=guide_legend(ncol=1)) +
theme(legend.position="bottom", 
legend.key = element_rect(fill=NA),
legend.title=element_blank())

Dans ce cas, il pourrait être judicieux de laisser le titre dans cette version, par la suppression de legend.title=element_blank()