dkeyes example

quasirandom.R

library(tidyverse)
library(ggbeeswarm)

data <- read_csv("https://gist.githubusercontent.com/dgkeyes/a9b47cfa9a7bd8313e5603d18cf3d444/raw/3de0e4074db23636ebd420af78e90c4009aa10c7/oregon-economic-mobility-data.csv") %>% 
  set_names(c("county", "percent")) %>% 
  mutate(percent = parse_number(percent))

mean <- mean(data$percent)

ggplot(data, aes(x = percent, y = 0)) +
  geom_hline(yintercept = 0, color = 'grey80', size = 0.1) +
  geom_vline(xintercept = mean, color = "firebrick", size = 0.5, linetype = "dashed") +
  geom_quasirandom(groupOnX = FALSE, bandwidth = 0.1, width = 0.1, size = 3) +
  annotate("text", x = 5, y = 0, label = "5%", fontface = "bold", family = "Futura", size = 6) +
  annotate("text", x = 15, y = 0, label = "15%", fontface = "bold", family = "Futura", size = 6) +
  annotate("text", x = mean, y = 0.1, label = paste0(round(mean,2), "%"), color = "firebrick", fontface = "bold", family = "Futura", size = 5, hjust = -0.1) +
  scale_x_continuous(limits = c(5, 15), labels = NULL) +
  labs(x = NULL,
       y = NULL) +
  theme_minimal() +
  theme(panel.grid.major.y = element_blank(),
        panel.grid.minor.y = element_blank(),
        panel.grid.minor.x = element_blank(),
        panel.grid.major.x = element_blank(),
        axis.text.y = element_blank())