R

R ggplot2 - ο θρύλος στο κάτω μέρος κόβεται, πώς να βρείτε τον βέλτιστο αριθμό στηλών για τον θρύλο εν κινήσει;

R Ggplot2 Legend Bottom Gets Cut



Λύση:

Αυτό λειτούργησε:

  • μειώστε το μέγεθος της γραμματοσειράς (κλίμακα πλάτους αντί για κλίμακα πλάτους * 1,5)
  • προσθέστε ένα κουτί γύρω από το μύθο
ggplot2 :: ggplot (mydf, ggplot2 :: aes (group, value, fill = var)) + ggplot2 :: geom_bar (stat = 'ταυτότητα') + ggplot2 :: scale_y_continuous ('%') + ggplot2 :: theme_light () + ggplot2 :: theme (legend.text = ggplot2 :: element_text (size = width_scale), legend.box.margin = margin (6, 6, 6, 6), legend.title = ggplot2 :: element_text (size = 1.5* width_scale, face = 'bold'), legend.position = 'bottom', legend.key.size = grid :: unit (width_scale/50, 'inch'), legend.key.width = grid :: unit (width_scale/ 50, 'ίντσα'))

Δείτε το αποτέλεσμα



Μπορείτε να προσαρμόσετε την κλίμακα width_scale σύμφωνα με τον αριθμό των στοιχείων στο υπόμνημα:



είναι<- data.frame(group=paste0('gr',1:10), var=paste('some long text -', 1:50), value=runif(500, 0, 100)) width_scale <- 12 * 26 / length(unique(mydf$var))  

προσαρμογή κλίμακας πλάτους




Θα μπορούσατε να προσαρμοστείτεμέγεθος μη αυτόματα αλλάζοντας την τιμή μεγέθους έως ότου τα γραφικά ταιριάζουν με τις απαιτήσεις σας;

print (#or ggsave () ggplot2 :: ggplot (mydf, ggplot2 :: aes (group, value, fill = var)) + ggplot2 :: geom_bar (stat = 'ταυτότητα') + ggplot2 :: scale_y_continuous ('%') + ggplot2 :: theme_light () + ggplot2 :: theme (legend.text = ggplot2 :: element_text (size = 14), legend.position = 'bottom'), legend.title = ggplot2 :: element_text (size = 1.5*width_scale , face = 'bold'), legend.key.size = grid :: unit (width_scale/50, 'inch'), legend.key.width = grid :: unit (width_scale/50, 'inch')))

εισαγάγετε εδώ την περιγραφή της εικόνας