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")

给我

如何以某种方式生成图例，其中 cyl-label 保持垂直而 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'))