YIPCIPEFAZNUQRBQEB2KP3V2UK5ZZXB6XLBF7KUBMUS42SSK62KAC
ZM4DTCD5JSLLCPYJMVGSZ3VYAJN5EQRUC3R336JKDNOSVDRDTG5AC
SFGLILRDOVHCOPRQ4STHE7RHNNVTNDS36COF2GRWT5XYJOJQ2LFQC
RYBPCSIQCI4VEMOCIN534SVE6UT2HMAGTJ6RZQUKCUGWOYISYLCQC
DIJO2HGF3PO7BSYOUZN2DMHU2SRR6CLQ245XKXSETZPJHF6RRKDAC
77ZDLLUTFQ3L3FELAWZQTOG5DUPINOXV5VYLEYBEONDOW2BSVZJAC
FKIS7JQAPARNQYCO6ULILN7KBCT6TL6CSPSE7MBSZ44T4NB5TS3AC
set.seed(42)
tSNE_df %>% sample_n(500) %>% ggplot(aes(x=tSNE1, y=tSNE2, label=word)) + geom_text(aes(label=word), hjust=0, vjust=0, color="blue")
library(plotly)
g <- tSNE_df %>% ggplot(aes(x=tSNE1, y=tSNE2, label=word)) + geom_text(aes(label=word), hjust=0, vjust=0, color="blue")
ggplotly(g, tooltip = 'word')