Легенда ggplot вертикальная и горизонтальная

Question

ggplot(mtcars, aes(x = mpg,
                   y = wt,
                   size = hp,
                   colour = as.factor(cyl))) +
  geom_point() +
  theme(legend.direction = "vertical",
        legend.box = "horizontal",
        legend.position = "bottom")

дает мне

Как создать легенду таким образом, чтобы метка цилиндра оставалась вертикальной, а категории hp расположены горизонтально?

Answer 1

Вы можете индивидуально управлять легендами с помощью guides(...):

ggplot(mtcars, aes(x = mpg,
                   y = wt,
                   size = hp,
                   colour = as.factor(cyl))) +
    geom_point() +
    theme(legend.direction = "vertical",
          legend.box = "horizontal",
          legend.position = "bottom") +
    guides(size=guide_legend(direction='horizontal'))