Selected words

final_df %>%
  filter(word == "ɢaˤraˤɢaˤl"|
           word == "gʲaɢara"|
           word == "mɨtʃ'aqaji"|
           word == "mɨtʃ'aqai"|
           word == "mɨtʃ'aqa"|
           word == "katʃalaj"|
           word == "katʃaldɨ"|
           word == "katʃal"|
           word == "ɢatʃaχ"|
           word == "ɢatʃaχar") %>% 
  filter(position == "medial") %>% 
  mutate(word = str_replace_all(word, "ɢatʃaχar", "ɢatʃaχ"),
         word = str_replace_all(word, "katʃalaj", "katʃal"),
         word = str_replace_all(word, "katʃaldɨ", "katʃal"),
         word = str_replace_all(word, "mɨtʃ'aqaji", "mɨtʃ'aqa"),
         word = str_replace_all(word, "mɨtʃ'aqai", "mɨtʃ'aqa")) ->
  gem

Absolute values

CD

gem %>% 
  ggplot(aes(word, closdur, fill = filename))+
  geom_boxplot()+
  #geom_point()+  
  theme_bw()+
  labs(y = "CD (ms)", x = "")+
  coord_flip()

VOT

gem %>% 
  ggplot(aes(word, VOT, fill = filename))+
  geom_boxplot()+
  theme_bw()+
  labs(y = "VOT (ms)", x = "")+
  coord_flip()

## Relative values ### CD

gem %>% 
  mutate(rel_cd = closdur/totdur) %>% 
  ggplot(aes(word, rel_cd, fill = filename))+
  geom_boxplot()+
  theme_bw()+
  labs(y = "CD (ms)", x = "")+
  coord_flip()

VOT

gem %>% 
  mutate(rel_vot = VOT/totdur) %>% 
  ggplot(aes(word, rel_vot, fill = filename))+
  geom_boxplot()+
  theme_bw()+
  labs(y = "CD (ms)", x = "")+
  coord_flip()