r - geom_sina ポイントの位置を geom_text_repel に合わせる方法

Question

a のポイントgeom_violinが 経由で配布され、またはgeom_sina経由でラベル付けされると、線は x 軸カテゴリの中線を指します。ポイントがどこにあるかを知る方法はありますか？geom_label_repelgeom_labelgeom_label_repelgeom_labelgeom_sina

例：

library(dplyr)
library(ggforce)
library(ggplot2)
library(ggrepel)

ggplot(midwest, aes(state, area)) +
  geom_violin() +
  geom_sina() +
  geom_label_repel(box.padding = 0.5, min.segment.length = 0.5, aes(label = county), data=midwest %>% subset(poptotal>1000000), size=3)

ラベルからの線が常に正中線に向かう様子を見ることができますが、点には向かいません (MI の WAYNE と OAKLAND 郡を参照)。