将引线添加到ggplot2饼图中

Question

我想在ggplot Pie Chart所有slices中添加引导线。

这个线程的第二个答案有它们，但是IDK是为重现该行而添加的， ggplot饼图标签

我试图复制并正确粘贴此答案的行部分中的内容，但是我弄得有些混乱： 控制由ggplot2中的因子变量生成的饼图中的刻度和奇数文字

lossmixchart <- ggplot(currentLoss, aes(x="", y = currentLoss$Incurred, fill = 
                Branch)) + 
  geom_bar(width = 1, stat = "identity", colour = "black")+ 
  coord_polar("y", start = 0) + 
  scale_fill_manual(values = 
                c("British Columbia" = "royalblue3", "Alberta" = "red", 
                "Saskatchewan" = "green4", "Manitoba" = "gold", "Ontario" = 
                "turquoise", "New Brunswick"= "purple", "PEI" = "hotpink", 
                "Nova Scotia" = "orange")) +
  theme_void() + 
  ggtitle(paste0(
                "Incurred Loss Mix in Thousands ", 2019, ": " , currentProvince)
            ) + 
  geom_text_repel(mapping = aes(label = paste0(Branch, " \n $", 
                prettyNum(round(currentLoss$Incurred/1000), big.mark = ",")), x = 2), 
                position = position_stack(vjust = 0.5), segment.size =.7, size = 5, 
                show.legend = FALSE) + 
  theme(legend.position = "none", 
        plot.title = element_text(face = "bold", size = 20), 
        axis.title = element_text(size=20),
        axis.title.y = element_blank(),
        axis.title.x = element_blank())

 print(lossmixchart, floating = FALSE)  

如果我在size之后添加nudge_x = .3 ，如某些页面建议尝试的那样， nudge_x = .3此错误：

Error: Specify either `position` or `nudge_x`/`nudge_y