Enrichment Map using emapplot

Below is my code to populate the plot. I have tried various ways to remove or make the pie legend (bottom left corner) smaller...to no avail.

I appreciate any help with this issue.

IBU_REACTForm_res <- pairwise_termsim(IBU_REACTForm_res) par(mar = c(2, 2, 2, 2)) EnMREACT_IBU <- emapplot(IBU_REACTForm_res, pie.params = list(legend_n = 2, pie.position ="none", layout="kk", pie.legend = "none"), layout.params = list(layout = "kk"), cex.params = list(category_label = 3, category_size =0.5, label_format = 1), showCategory = 3) + theme(legend.key.size = unit(2,'cm'), legend.title = element_text(size = 30), l egend.text = element_text(size = 30)) + guides(pie = "none")