pdf("plot_density.pdf",width = 4.5, height = 4)
d1 <- Nebulosa::plot_density(seurat_scRNA,
features = c("Cd3d", "Fbp1"),
size = 1.2,
# pal = "magma",
joint=TRUE, slot = "data",combine = T,
reduction = "umap")[[3]]
print(d1)
dev.off()
ggplot2 要3.4低版本的
library(scCustomize)
pdf("plot_density.pdf",width = 4, height = 4)
Plot_Density_Joint_Only(seurat_object = marsh_mouse_micro, features = c("Egfr","Lrp1","Cd81","Ptprf"))
dev.off()
