data(example_matrix)
samples_use <- 1:200
plot_data <- example_matrix[samples_use, ]
labels <- sample(
c("A", "B", "C", "D", "E"),
nrow(plot_data),
replace = TRUE
)
plot_embedding(
plot_data,
labels,
method = "pca",
point_size = 2
)
plot_embedding(
plot_data,
labels,
method = "tsne",
point_size = 2
)
Run the code above in your browser using DataLab