http://www.codeproject.com/Tips/788739/Visualization-of-High-Dimensional-Data-using-t-SNE
# loading data into R
mydata <- read.table("existw2v", header=FALSE, sep=" ")
# load the tsne package
library(tsne)
# initialize counter to 0
x <- 0
epc <- function(x) {
x <<- x + 1
filename <- paste("plot", x, "jpg", sep=".")
cat("> Plotting TSNE to ", filename, " ")
# plot to d:\\plot.x.jpg file of 2400x1800 dimension
jpeg(filename, width=2400, height=1800)
plot(x, t='n', main="T-SNE")
text(x, labels=rownames(mydata))
dev.off()
}
# run tsne (maximum iterations:500, callback every 100 epochs, target dimension k=5)
tsne_data <- tsne(mydata, k=5, epoch_callback=epc, max_iter=500, epoch=100)
mydata <- data.frame(mydata[,-1], row.names=mydata[,1])