# Create PCA plot coloured by identity
pca_plot <- plot_sample_space(example_phyex_set, method = "PCA", colour_by = "identity")
# Create UMAP plot coloured by TXI
if (requireNamespace("uwot", quietly = TRUE)) {
umap_plot <- plot_sample_space(example_phyex_set, method = "UMAP", colour_by = "TXI")
}
Run the code above in your browser using DataLab