How to increase the margin of a plot to avoid legend cutoff when using ggarrange

Question

library(ggforce)
library(ggplot2)
library("ggpubr")
d1 <- data.frame(label = c("lots","of","categories", "in", &