QBQSGA2U4SZZ4SQPZ3B4Y4RUC4HMDX4GH3QV3VS32BEN46BPTLBQC YIPCIPEFAZNUQRBQEB2KP3V2UK5ZZXB6XLBF7KUBMUS42SSK62KAC UTPJYDHYBPAV5TD5SIDWMDGNPFFWTA3A6LHKCEWOH5PTYEHUCP3AC KJXDMDMJ4O4BMJL5HF2MY23OKBRZJ57JPD2BUBJXBUUQPMMBFZNAC DIJO2HGF3PO7BSYOUZN2DMHU2SRR6CLQ245XKXSETZPJHF6RRKDAC 77ZDLLUTFQ3L3FELAWZQTOG5DUPINOXV5VYLEYBEONDOW2BSVZJAC E7FEYGRDTY7JPOHDYCZUZWIWKOKWSOPYK27QJBJI3ENRYEQMKVKQC SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC g <- tSNE_df %>% ggplot(aes(x=tSNE1, y=tSNE2, label=word)) + geom_text(aes(label=word), hjust=0, vjust=0, color="blue")
set.seed(42)g <- tSNE_df %>% sample_n(2000) %>% ggplot(aes(x=tSNE1, y=tSNE2, label=word)) + geom_text(aes(label=word), hjust=0, vjust=0, color="blue")