在ggplot2中为多个图例指定不同的位置？

Question

我有两个传说，一个来自colour参数，另一个来自fill参数。默认情况下，两个图例位于图的右侧。它们可以用legend.position()一起移动到情节的底部，但是我想在右边保留一个图例并将另一个图例移到底部。在下面的（平凡的）可重现的示例中，我希望var2图例保留在图的右侧，并且仅将var1图例移动到图的底部。是否可以这样做？

d <- data.frame(var1 = sample(1:20, 20, replace = T),
                 var2 = runif(20),
                 x = rnorm(20),
                 y = rnorm(20))


ggplot(d, aes(x, y)) + geom_point(aes(colour = var1, size = var2))

图1

ggplot(d, aes(x, y)) + geom_point(aes(colour = var1, size = var2)) + 
  theme(legend.position = "bottom",
        legend.box = "vertical") 

图2