책에 나온 코드 그대로 따라하고 있는데, df_word <- filter(df_word, nchar(word) >= 2 이 구문을 실행하면 오류가 뜹니다. 