向ggplot图例添加垂直间距

Question

我无法在饼形图的y轴上添加垂直间距，而又不拉伸颜色框，是否有办法保持颜色框的大小相同（正方形），同时增加每个颜色框之间的垂直间距元素？

我尝试了多种方法，从将theme(legend.text = element_text(margin = margin(t = 1,b = 1, unit ='cm')))修改为legend.spacing.y和keyheight，但到目前为止似乎没有任何效果。

示例：

library(tidyverse)

df1 <- data.frame(Color = c("Blue", "Red", "Green"), pcts = c(.45, .25, .30))
df1$ymax <- cumsum(df1$pcts)
df1$ymin <- lag(df1$ymax, 1, default = 0)

df1 %>% ggplot(aes(ymax = ymax, ymin = ymin, xmax = 4, xmin = 2.85, fill = Color)) + 
  geom_rect() +
  coord_polar(theta = "y") + 
  theme(legend.text = element_text(margin = margin(t = 1, b = 1, unit = 'cm')))

此外，以下图表是使用Cario呈现的，但是默认的图形设备会产生相同的结果。

所需的图例：