# NOT RUN {
library(EmbedSOM)
library(ggplot2)
# simulate a simple dataset
e <- cbind(rnorm(10000),rnorm(10000))
data <- data.frame(Val=log(1+e[,1]^2+e[,2]^2))
PlotGG(e, data=data) +
geom_point(aes_string(color="Val"), alpha=.5) +
ExpressionGradient(guide=FALSE)
# }
Run the code above in your browser using DataLab