I think you should have a look at the label_wrap()function from the scales library.
library(scales)
load_example_dataset("8028226/files/pbmc3k_medium_clusters_enr_sub")
p <- plot_clust_enrichments(pbmc3k_medium_clusters_enr_sub)
p + scales::scale_y_discrete(labels = label_wrap(100))
I think you should have a look at the
label_wrap()
function from the scales library.