df_word <- filter(df_word, nchar(as.character(df_word$word)) >= 2)