1

我正在尝试创建一个总共有 9 个地块的华夫饼图。但是，无论我尝试什么，我都无法减少图中 3 列之间的间距。这就是我现在的情节。 华夫饼足球

到目前为止我使用的代码是这样的：-

fig1 <- waffle(Intvec, rows=10, size=2.0, 
           colors=c("#cb181d", "#238b45", "#0570b0", 
                    "#fec44f", "#ec7014", "#6a51a3"),
           title = "Inter")
fig1$layers[[1]]$aes_params$colour <- '#252525'
fin1 <- fig1 + theme(plot.background = element_rect(fill = "#252525", colour = "#252525")) +
theme(legend.position = "none") +
labs(y = "Serie A", main = "Inter") +
 theme(axis.title.y = element_text(color="#bdbdbd", size=18, face="bold"),
 plot.title = element_text(colour = "#ffffff", size = 20, face = "bold"))
fin1

并在使用 ggarrange 之前对其他 8 个地块执行相同操作

fig <- ggarrange(fin1, fin2, fin3, fin4, fin5,
                 fin6, fin7, fin8, fin9,
                 nrow = 3, ncol = 3)

谁能帮我解决这个问题？

4

0 回答 0