ggplot2-在自定义位置围绕图例换行

将图例放置在ggplot中的自定义位置（使用legend.position = c(x, y)）时，是否可以设置图例的格式，使其不覆盖数据，而是数据点环绕它？

在本例中，是否可以让ggplot在绘图中插入额外的空间，以便数据点不会被图例遮挡（而不更改legend.position）？

谢谢

library(tidyverse)

data(mtcars)

ggplot(data = mtcars, aes(x = wt, y = hp))+
  geom_point(aes(color = mpg))+
  theme(legend.direction = "horizontal",
        legend.position = c(0.5, 0.9))