How to align position of geom_sina point with geom_text

Once points in a geom_violin are distributed via geom_sina and then labelled via geom_label_repel or even geom_label, the line points to the midline of the x-axis category. Is there a way to have geom_label_repel or even geom_label know where the point is after geom_sina?

Example:

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)

You can see how the line from the label always goes to the midline, but not the point (see WAYNE and OAKLAND county in MI).

CodePudding user response：

I haven't seen a satisfying answer to this kind of question yet. The general approach I've seen has been to create the plot using the mapping transformation, then to extract the transformed values, and then use those to plot the layer using those transformed values.

EDIT: Added set.seed before each round of plotting

library(tidyverse)
set.seed(0)
a <- ggplot(midwest, aes(state, area))  
  geom_violin()  
  geom_sina()
  
a_guts <- ggplot_build(a)$data[[2]] %>% 
  bind_cols(midwest %>% 
              mutate(state_num = as.integer(as.factor(state))) %>%
              select(state_num, area, county, poptotal)) %>% 
  subset(poptotal>1E6)


set.seed(0)
a   geom_point(data = a_guts, aes(x = x, y = y), 
               size = 3, color = "red", shape = 22, fill = NA)  
  geom_label_repel(data = a_guts,
                   aes(x = x, y = y, label = county), color = "red",
                   box.padding = 2, min.segment.length = 0.5, size=3)