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")