Selected words

# final_df %>% 
#   filter(word == "p'aq'"| # +
#            word == "tʃap'aˤliʃid"|
#            word == "maqˤ'aqˤ'al"|
#            word == "maq'am"| # +
#            word == "χaq'as"| # +
#            word == "baq'aq'aj"| # +
#            word == "q'ats"| # +
#            word == "q'ak"| 
#            word == "q'atʃ"| # +
#            word == "ɢapan"| # +
#            word == "ɢapaʁ"| # +
#            word == "ɢatar"| # +
#            word == "maqˤaqˤ"| # +
#            word == "gʲaɢara"| # +
#            word == "ɢˤaraɢˤal") ->
#   phar
# 
# write_tsv(phar, "data/pharyng.tsv")
ph <- read_tsv("data/pharyng.tsv")

Absolute values

CD

ph %>% 
  ggplot(aes(word, closdur, color = filename))+
  geom_boxplot()+
  theme_bw()+
  labs(y = "CD (ms)", x = "")+
  coord_flip()+
  facet_wrap(~pair, scale = "free_y")

VOT

ph %>% 
  ggplot(aes(word, VOT, color = filename))+
  geom_boxplot()+
  theme_bw()+
  labs(y = "VOT (ms)", x = "")+
  coord_flip()+
  facet_wrap(~pair, scale = "free_y")

Relative values

CD

ph %>% 
  mutate(rel_cd = closdur/totdur) %>% 
  ggplot(aes(word, rel_cd, color = filename))+
  geom_boxplot()+
  theme_bw()+
  labs(y = "CD (ms)", x = "")+
  coord_flip()+
  facet_wrap(~pair, scale = "free_y")

VOT

ph %>% 
  mutate(rel_vot = VOT/totdur) %>% 
  ggplot(aes(word, rel_vot, color = filename))+
  geom_boxplot()+
  theme_bw()+
  labs(y = "CD (ms)", x = "")+
  coord_flip()+
  facet_wrap(~pair, scale = "free_y")