1. load libraries

2. Load Seurat Object


All_samples_Merged <- readRDS("../All_samples_Merged_with_STCAT.rds")

Visualization Seurat



DimPlot(All_samples_Merged, group.by = "Prediction",label = TRUE, repel = T, label.box = T)

Visualization scPubr


library(SCpubr)

SCpubr::do_DimPlot(All_samples_Merged, group.by = "Prediction",label = TRUE, repel = T, label.box = T, legend.position = "right")

LS0tCnRpdGxlOiAiU1RDQVQ6IFRDZWxsQXRsYXRzIgphdXRob3I6ICJOYXNpciBNYWhtb29kIEFiYmFzaSIKZGF0ZTogImByIFN5cy5EYXRlKClgIgpvdXRwdXQ6CiAgaHRtbF9ub3RlYm9vazoKICAgIHRvYzogeWVzCiAgICB0b2NfZmxvYXQ6IHllcwogICAgdG9jX2NvbGxhcHNlZDogeWVzCiAgd29yZF9kb2N1bWVudDoKICAgIHRvYzogeWVzCiAgaHRtbF9kb2N1bWVudDoKICAgIHRvYzogeWVzCiAgICBkZl9wcmludDogcGFnZWQKICBwZGZfZG9jdW1lbnQ6CiAgICB0b2M6IHllcwotLS0KCgojIDEuIGxvYWQgbGlicmFyaWVzCmBgYHtyIHNldHVwLCBpbmNsdWRlPUZBTFNFfQojIExvYWQgYmVsb3cgbGlicmFyaWVzCmxpYnJhcnkoU2V1cmF0KQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocGxvdGx5KQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShjb3dwbG90KQoKCmxpYnJhcnkoU0NwdWJyKQpsaWJyYXJ5KGRwbHlyKQpgYGAKCgojIDIuIExvYWQgU2V1cmF0IE9iamVjdCAKYGBge3J9CgpBbGxfc2FtcGxlc19NZXJnZWQgPC0gcmVhZFJEUygiLi4vQWxsX3NhbXBsZXNfTWVyZ2VkX3dpdGhfU1RDQVQucmRzIikKCmBgYAoKIyMgVmlzdWFsaXphdGlvbiBTZXVyYXQKYGBge3IsIGZpZy5oZWlnaHQ9OCwgZmlnLndpZHRoPTEyfQoKCkRpbVBsb3QoQWxsX3NhbXBsZXNfTWVyZ2VkLCBncm91cC5ieSA9ICJQcmVkaWN0aW9uIixsYWJlbCA9IFRSVUUsIHJlcGVsID0gVCwgbGFiZWwuYm94ID0gVCkKCmBgYAoKCiMjIFZpc3VhbGl6YXRpb24gc2NQdWJyCmBgYHtyLCBmaWcuaGVpZ2h0PTgsIGZpZy53aWR0aD0xMH0KCmxpYnJhcnkoU0NwdWJyKQoKU0NwdWJyOjpkb19EaW1QbG90KEFsbF9zYW1wbGVzX01lcmdlZCwgZ3JvdXAuYnkgPSAiUHJlZGljdGlvbiIsbGFiZWwgPSBUUlVFLCByZXBlbCA9IFQsIGxhYmVsLmJveCA9IFQsIGxlZ2VuZC5wb3NpdGlvbiA9ICJyaWdodCIpCgpgYGAK