【R】调整ggplot图例大小

图例太多时，会挤压正图，显得正图展示区域很小，这时有必要缩小图例。

#################
# 减小ggplot图例
#################

library(ggplot2)
p <- ggplot(mtcars, 
            aes(drat, mpg, color = factor(gear), shape = factor(vs))) +
  geom_point(size = 2) +
  theme_classic() +
  theme(legend.position = c(0.1, 0.7))
p

# Overwrite given size (2) to 0.5 (super small)
p <- p + guides(shape = guide_legend(override.aes = list(size = 0.5)))
p

p <- p + guides(color = guide_legend(override.aes = list(size = 0.5)))
p

p <- p + theme(legend.title = element_text(size = 3), 
               legend.text = element_text(size = 3))
p

addSmallLegend <- function(myPlot, pointSize = 0.5, textSize = 3, spaceLegend = 0.1) {
  myPlot +
    guides(shape = guide_legend(override.aes = list(size = pointSize)),