4. Position

final_df %>%
  ggplot(aes(c_type, closdur, label = stop_label))+
  geom_text(aes(y = 430), alpha = 0.1)+
  geom_boxplot(aes(color = position))+
  theme_bw()+
  theme(legend.position="bottom")+
  facet_grid(Language~affric+poa, scale = "free_x")+
  labs(y = "CD (ms)", x = "")

final_df %>%
  ggplot(aes(c_type, VOT, label = stop_label))+
  geom_text(aes(y = 430), alpha = 0.1)+
  geom_boxplot(aes(color = position))+
  theme_bw()+
  theme(legend.position="bottom")+
  facet_grid(Language~affric+poa, scale = "free_x")+
  labs(y = "VOT (ms)", x = "")+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)

final_df %>%
  ggplot(aes(closdur, VOT, label = stop_label, color = position, group = position))+
  geom_text(aes(color = position))+
  stat_ellipse(color = "black")+
  theme_bw()+
  theme(legend.position="bottom")+
  facet_grid(Language~affric+poa, scale = "free_x")+
  geom_hline(yintercept = 30, lty = 2)+
  geom_hline(yintercept = 160, lty = 2)+
  facet_grid(Gender~affric+poa, scale = "free_x")+
  labs(y = "VOT (ms)", x = "CD (ms)")