added stopwords to apply_as_df and added facet_wrap to plot.word_cor