library("boot")
library("umap")
library("tsne")
# change the last column to be a factor
brambles[, 3] <- as.factor(brambles[, 3])
prVis(brambles, labels = T)
z <- umap(brambles[,-3])
plot(z$layout,col=brambles[,3])
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.