position_dodge.R

position_dodge.R

library(tidyverse)
tooth_data <- ToothGrowth |> 
  as_tibble() |> 
  mutate(dose = factor(dose)) 

tooth_data_relabeled <- tooth_data |> 
  mutate(
    supp = if_else(
      supp == 'VC', 'Vitamin C supplement', 'Orange Juice'
   )
  ) 

tooth_data_relabeled |> 
  ggplot(
    aes(y = len, x = supp, fill = dose)
  ) +
  geom_point(
    size = 6,
    alpha = 0.75,
    shape = 21,
    col = 'black',
    position = position_dodge(
      width = 0.5
    )
  ) +
  theme_minimal(base_size = 20) +
  labs(
    x = 'Supplement', 
    y = 'Length', 
    fill = 'Dose', 
    title = 'Length of tooth growth cells after supplements'
  )