Lab 1

I completed question 9 for this lab. I came up with my ʃ words and placed them in a CSV file, with their spelling of ʃ in another column.

library(ggplot2)

data <- read.csv('sh_words.csv')

Then I use ggplot to plot the data, using a StackOverflow answer I found to order the bars by their token counts.

ggplot(data, aes(x=reorder(spelling,spelling,
                     function(x)-length(x)))) +
  geom_bar(fill = "light blue") +
  labs(title = "Token Counts for Spellings of [sh]", x="Spelling", y="Token Count")