圆形条形图不适合方形尺寸

Question

我使用 ggplot2 构建了一个圆形条形图，但它不符合我为导出指定的大小参数。这是 ggplot 和 ggsave 位。

wheel_plot <- ggplot(assessment_scores, aes(x=as.factor(wheel_plot_labels), y=score)) +
  scale_y_continuous(breaks=seq(0, 10, 2), limits=c(0, 10)) +
  geom_bar(stat="identity", fill=alpha(alg_blue, 0.7)) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(size=rel(0.45)),
    axis.text.y = element_text(size=rel(0.7), color="grey"),
    axis.title = element_blank(),
    plot.margin = unit(rep(-2,4), "cm")
  ) +
  xlab("") +
  ylab("") +
  coord_polar(start=0)
ggsave(wheel_plot, filename = "~/Downloads/Wheel of life.pdf", device = cairo_pdf,
       width = 4, height = 4, units = "in")

结果图如下所示，其中标签和轴的全部范围被切断：

如何使绘图适合 4" x 4" 正方形？