ciliated_genes <- c("che-1", "hlh-17", "nhr-6", "dmd
cell.type",group_label_size = 3,cell_size = 0.7) #基因沿着轨迹变化 ciliated_genes <- c("che-1","hlh-17","nhr-6","dmd