[geom label or text to align with geom_jitter()] #R

geom jitter labels.R

library(tidyverse)
library(hkdatasets)

hk_accidents %>% glimpse()

## These charts look ridiculous but at least the jitter points are aligned with the text

hk_accidents %>%
  filter(Year == 2017) %>%
  ggplot(aes(x = Natural_Light , y = No__of_Vehicles_Involved)) +
  geom_violin() +
  geom_jitter(position = position_jitter(seed = 1)) +
  geom_text(aes(label = OBJECTID), position = position_jitter(seed = 1))
  
iris %>%
  ggplot(aes(x = Sepal.Length, y = Species, fill = Species)) +
  geom_violin() +
  geom_jitter(position = position_jitter(seed = 1)) +
  geom_label(aes(label = Species), position = position_jitter(seed = 1))