df <- dataframe$Data %>% na.omit() %>% tolower() %>% strsplit(split = " ") %>% unlist() %>% table() %>%
so