R 如何将标签记号添加到使用ggplot2创建的饼图中？

我使用ggplot2软件包构建了一个饼图，但由于一些切片非常小，组标签彼此重叠，值标签也重叠。我正在寻找一种方法，使标签远离切片，并用一条线连接切片和标签。 我正在使用这些数据：

a<-c(0.5,0.01,2,50,40,7)
data<-data.frame(a)
data$b<-c("A","B","C","D","E","F")

---

a请参阅帮助中心中有关软件特定问题的建议。在这里，询问特定软件的代码是离题的。（我要说的是，水平条形图要比你想要模仿的、色彩华丽、毫无意义的三维显示要好得多；这部分是品味的问题，但也有理性的论据。这种显示的优点和局限性不是你的问题……但完全在这里讨论。）不要使用图表？对不起，傲慢的人。众所周知，图表很难解释。你会考虑使用（堆叠）BrPoice吗？这个问题可能会有一些启发：
p<- ggplot(data,aes(x=1,y=a,fill=b))
p<- p + geom_bar(stat = "identity",color="black")
p<- p+coord_polar("y")
br<-cumsum(data$a) - data$a/2
p<-p+theme(legend.position = "none",axis.text.x=element_text(color='black',size = 15))+
    scale_y_continuous(breaks=br,labels=data$b)+
    geom_text(aes(y = a/3 + c(0, cumsum(a)[-length(a)]),
                  label=a),size=6)