求助R语言ggplot作KEGG泡沫图，怎么让它的纵坐标注释显示等宽？

GO <- read.table(‘DATA.txt’,header = T,sep=’\t’)
ggplot(GO,aes(x=Rich_Factor,y=reorder(pathway,as.numeric(order)), size=Gene,colour=P_Value,shape=Type))+ geom_point()+scale_colour_gradient(low=“red”,high=“green”)+ theme(axis.title.y=element_blank(), text=element_text(size=16,family=“serif”)) + guides(shape = guide_legend(override.aes = list(size = 4)))