monocle2轨迹图更改点颜色
display.brewer.all()
cols_1<-brewer.pal(8, 'Dark2')
p<-plot_cell_trajectory(cds, color_by = 'celltype')+
scale_colour_manual(
values = cols_1
# aesthetics = c("colour", "fill")
)
monocle3轨迹图更改点颜色
for(gene in genes){
print(gene)
# png(file = paste0(gene, '.png'), width = 10, height = 8)
p<-plot_cells(cds, genes = gene, label_cell_groups=FALSE,
show_trajectory_graph=FALSE,
cell_size=1) + scale_color_gradient2(low='grey', mid = 'orange', high = 'red')
# dev.off()
ggsave(p, filename = paste0(gene,'.pdf'), width = 10, height = 8)
}
