r - R中ggplot2中多个图例的图例键之间的间距

Question

我通过互联网搜索，但找不到解决我的问题的方法。

所以为了让它更可靠，我们有一个带有两个图例的图表，如下所示:

library(ggplot2)

ggplot() + 
  geom_point(data = mtcars, aes(x = disp, y = mpg, color = gear), 
             pch =20, size=18) + 
  geom_line(data = mtcars, aes(x = disp, y = mpg, size = disp/mpg*100)) +
  scale_size(range = c(0,3.5)) +
  guides(size = guide_legend("", order = 1, keywidth = 2, keyheight = 1.5), 
         color = guide_legend("", order = 2, keywidth = 1, keyheight = 1 )) +
  labs(x = "disp", y = "mpg") +
  geom_text(size=2.7, color = "grey29",  vjust=-0.8) +
  theme_bw() 

# ggsave("trial.png", width = 11.5, height = 8.5)

我可以通过使用更改与大小相关的第一个图例组的间距 size guides 中的选项.但是，对于指示颜色的第二组，我既不能使整个组更接近图形，也不能缩小到彩色圆圈之间的大小。

我还尝试了主题中的图例选项，例如 legend.spacing.x/y和 legend.key.width/height .这些选项仅适用于第一个图例组。

有没有办法减少不同颜色键之间的大小？改变键的大小也很好发现。

为了让我的要求更清楚，这里是我想要调整的差距:


提前致谢。

Answer 1

我不确定您需要什么，但我认为您希望图例中的点更小。在这种情况下，override.aes()是你需要的功能。

如果您的问题有所不同，请进一步说明，以便我们为您提供帮助。

library(ggplot2)

ggplot() + 
  geom_point(data = mtcars, aes(x = disp, y = mpg, color = gear), 
             pch =20, size=18) + 
  geom_line(data = mtcars, aes(x = disp, y = mpg, size = disp/mpg*100)) +
  scale_size(range = c(0,3.5)) +
  guides(size = guide_legend("", order = 1, keywidth = 2, keyheight = 1.5), 
         color = guide_legend("", order = 2, keywidth = 1, keyheight = 1, 
                              override.aes = list(size=9))) +
  labs(x = "disp", y = "mpg") +
  geom_text(size=2.7, color = "grey29",  vjust=-0.8) +
  theme_bw()

创建于 2019-07-08 由 reprex package (v0.3.0)