R/rtsne_viz.R

Defines functions rtsne_viz

Documented in rtsne_viz

#' Rtsne visualization
#'
#' @param data Original data.
#' @param labels Integer vector. Can be true labels or labels created by clustering output.
#'
#' @return plot
#' @import Rtsne
#' @import ggplot2
#' @export
rtsne_viz <- function(data, labels) {
	rtsne.out<- Rtsne(data)
	embedding <- as.data.frame(rtsne.out$Y)
	embedding$label <- labels
	# plot(rtsne.out$Y, main = '',col = news100.njw$cluster)
	p <- ggplot(embedding, aes(x=V1, y=V2, col= label)) + geom_point(size = 0.8) +
	  guides(colour = guide_legend(override.aes = list(size=3))) +
	  xlab("") +
	  ylab("") +
	  ggtitle("Rtsne 2D Embedding Visulization") +
	  theme_light(base_size=10) +
	  theme(strip.background = element_blank(), strip.text.x = element_blank() , axis.text.x = element_blank(),
	        axis.text.y = element_blank(),axis.ticks = element_blank(), axis.line = element_blank(), panel.border = element_blank())
	p
}
CAMCOS/camcos2017 documentation built on May 6, 2019, 9:23 a.m.