在ggplot图例中添加数字

Question

到目前为止，我已经完成了以下情节：

是否可以在图例中有颜色的方形内添加从1到x的数字，并在引用数字的饼图中添加标签，而不是添加整个标签？

修改即可。代码：

 ggplot(BP, aes(x=1, y=Enrichment_Score, fill=GO.ID)) +
    geom_bar(stat="identity") +
    coord_polar(theta='y') +
    guides(fill=guide_legend(override.aes=list(colour=NA), nrow=6)) +
    theme(axis.ticks=element_blank(), axis.title=element_blank(), axis.text=element_blank(), panel.grid  = element_blank(), legend.position="bottom") +
    ggtitle("Biological Processes")

数据（只有几行）：

GO.ID                                       Enrichment_Score
kinetochore organization                    18.085646
defense response to Gram-negative bacterium 18.085646
cell wall repair                            18.085646