Comment aligner la boîte de légende au milieu du titre de la légende dans ggplot2?

Question

Par défaut, la boîte/clé de légende est alignée à gauche du titre de la légende. Comme j'ai un long titre de légende, je veux l'aligner sur le centre à la place. J'ai essayé theme et guide_legend sans aucun succès. Toute suggestion serait appréciée. Merci!

• données

  df <- structure(list(Flow = c(0.992762, 0.802408, 0.9826, 0.754863, 
       0.174542, 0.056777), Coef = c(0.62, 0.49, 0.38, 0.59, 0.25, 0.67 
       ), VeryLongLegendTitle = c(4.47680710313542, 18.8500193246859, 
       5.82742564783431, 23.3217237977105, 13.0155332302148, 88.4960885143824 
       )), class = "data.frame", row.names = c(NA, -6L), .Names = c("Flow", 
       "Coef", "VeryLongLegendTitle")) 
  

• code

  library(ggplot2) 
  p1 <- ggplot(df, aes(x = Flow, y = Coef, color = VeryLongLegendTitle)) + 
      xlab(NULL) + scale_x_continuous(limits = c(0.0, 1.0), breaks = c(0.25, 0.75)) + 
      geom_point(size = 2, alpha = 0.8) + 
      theme_bw(base_size = 14) + 
      theme(axis.text.x = element_text(angle = 0, vjust = 0.5)) 
  p1 
  
  p1 + theme(legend.title.align = 0.5) 
  p1 + theme(legend.title = element_text(hjust = 0.5)) 
  p1 + guides(color = guide_legend(title.hjust = 0.5)) 
  

• Terrain

Answer 1

Je suis d'accord avec @www mais vous pouvez essayer p1 + guides(color = guide_legend(keywidth = 5, keyheight = 2)). Il va produire quelque chose comme ceci:

Il serait également bon de jeter un oeil à la Legend guide. Considérez-vous une légende horizontale à la place?