R 如何在散点图中添加线以连接饼之间？

我有一个散点图，在x轴和y轴上绘制了散点图。如何添加连接馅饼的直线？理想情况下，我希望这些线连接馅饼中心点下方的y值

我尝试添加

geom_路径

，但没有成功

这个问题是我之前发布的问题的后续问题

我的数据

库（tidyverse）
图书馆（散乱）
my_df只需在代码开头添加具有相同的
x
和
y
美学的
geom_路径
：

p <- ggplot(data = my_df) +
  geom_path(aes(x = day_in_july, y = y*50)) +
  geom_scatterpie(aes(x = day_in_july, y = y*50, r = 0.3), 
                  data = my_df, 
                  cols = colnames(my_df)[2:3],
                  color = "red") + 
  geom_text(aes(y = y*50, x = day_in_july, 
                label = paste0(formatC(y*100, digits = 3), "%")),
            nudge_y = 0.07, nudge_x = -0.25, size = 3) +
  geom_text(aes(y = y*50, x = day_in_july, 
                label = paste0(formatC((1-y)*100, digits = 3), "%")),
            nudge_y = -0.07, nudge_x = 0.25, size = 3) +
  scale_fill_manual(values = c("pink", "seagreen3")) +
  # scale_x_continuous(labels = xvals, breaks = xvals) +
  scale_y_continuous(name = "yes but no",
                     labels = function(x) x/50) + 
  coord_fixed()

p哦！你让我意识到，
geom_path（）
在ggplot代码结构中的位置会影响它是在派的后面还是上面。令人惊叹的。