我目前想在R-Markdown的一页上编织1个表格和2个图表（一个条形和一个饼图）。但是，编织后，饼图会因为不合适而移至第二页。我只想缩小饼图，因为如果尺寸缩小，则有足够的空间容纳它。
我尝试使用ggsave（x，宽度，高度），但我不想仅保存文件，我想打印它（我尝试使用ggsave打印ggplot，但它没有不能改变结果，我也已经看了这个答案。 Change size of individual ggplot2 charts in knitr pdf file
但是，我无法添加更多的块，因为我有一个for循环。我知道这不一定是最好的做事方式，但这是我所知道的。
我也尝试过coor_fixed（ratio = .5），但是它只是缩小饼图，而不是缩小图表大小。
也有主题（aspect.ratio = 4/3），但它只是使饼形图倾斜，而不是实际大小。
prempie <- ggplot(currentPrem, aes(x="", y = currentPrem$WrittenPremium, fill= Line)) + geom_bar(width = 1, stat = "identity") + coord_polar("y", start = 0) + scale_fill_manual(values = c("Automobile" = "navyblue", "Personal" = "red", "Commercial" = "gold", "Farm" = "darkgreen")) + ggtitle(paste0(currentProvince, " Year to Date Written Premium History")) + theme_void()
print(prempie)
希望通过缩小饼图使其适合上一页，但不能这样做。