如何在用ggplot2创建的饼图中添加标签刻度？

Question

我使用ggplot2包构建了一个饼图，但由于某些切片非常小，因此组标签相互重叠，并且值标签也是如此。我正在寻找一种方法，使标签远离切片，并将切片和标签与一条线连接起来。 我正在使用这些数据：

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

我使用了以下代码：

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)

并且被保留的情节是：

我正在寻找与那个相似的东西（我在网上找到的）：