问ggplot2我想要的就是将y轴向右移动，并将它们向左对齐，以将它们包含在条形图中？

p4<- ggplot(top20,aes(FoldEnrichment, fct_reorder(factor(Description), FoldEnrichment),fill=-1*log10(pvalue))) +

geom_bar(stat = "identity",width=0.7)+

  scale_fill_gradient(low = "red",high ="green" )+

  labs(title = "KEGG Pathways Enrichment",

       x = "FoldEnrichment",

       y = "Pathways")+

  theme(axis.title.x = element_text(face = "bold",size = 16),

        axis.title.y = element_text(face = "bold",size = 16),

        legend.title = element_text(face = "bold",size = 16))+

  theme_bw()

P4