#0072B2", "#D55E00") ggplot(crass_impact,aes(x=rel_crAss,y=rel_res,color=country))+ geom_point()+ scale_color_manual...crass_impact,aes(x=rel_crAss,y=rel_res,color=country))+ geom_point(aes(shape=crAss_detection),size=5)+ scale_color_manual...crass_impact,aes(x=rel_crAss,y=rel_res,color=country))+ geom_point(aes(shape=crAss_detection),size=5)+ scale_color_manual...crass_impact,aes(x=rel_crAss,y=rel_res,color=country))+ geom_point(aes(shape=crAss_detection),size=5)+ scale_color_manual...crass_impact,aes(x=rel_crAss,y=rel_res,color=country))+ geom_point(aes(shape=crAss_detection),size=5)+ scale_color_manual
,进行不同的颜色设置 p + geom_point(aes(shape = cyl, color = cyl)) + # color_manual的作用是自定义颜色,而不是采用默认的颜色分组 scale_color_manual...cyl, shape=cyl)) + # 曲线的颜色和fill用于区分组 geom_smooth(aes(color = cyl, fill = cyl), method = lm) + #scale_color_manual...和scale_fill_manual用于自定义配色方案设置 scale_color_manual(values = c("#00AFBB", "#E7B800", "#FC4E07"))+ #...+ geom_point(aes(color = cyl)) + geom_label_repel(aes(label = .labs, color = cyl), size = 3)+ scale_color_manual...气泡图 # alpha是透明度 size是设置气泡的因素 p + geom_point(aes(color = cyl, size = qsec), alpha = 0.5) + scale_color_manual
xintercept = 0))+ #以0为分界线 xlab('HR(95%CI)') + ylab(' ')+ #定义标签 theme_bw(base_size = 12)+ #主题和字体 scale_color_manual...+ geom_vline(aes(xintercept = 0))+ xlab('HR(95%CI)') + ylab(' ')+ theme_bw(base_size = 12)+ scale_color_manual...+ geom_vline(aes(xintercept = 0))+ xlab('HR(95%CI)') + ylab(' ')+ theme_bw(base_size = 12)+ scale_color_manual...+ geom_vline(aes(xintercept = 0))+ xlab('HR(95%CI)') + ylab(' ')+ theme_bw(base_size = 12)+ scale_color_manual...xintercept = 0))+ xlab('HR(95%CI)') + ylab(' ')+ theme_bw(base_size = 12)+ scale_color_manual
# 根据颜色区分组 # 改变线的颜色 p3 <- p + geom_density(aes(color = sex)) + # 这个函数很熟悉吧 scale_color_manual(values...geom_vline(aes(xintercept = grp.mean, color = sex), data = me, linetype = "dashed") + # 以下为配色方案 scale_color_manual...geom_histogram(aes(color = sex), fill = "white", position = "identity") + # 添加颜色方案 scale_color_manual...0.4, position = "identity") + # 添加配色方案 scale_fill_manual(values = c("#00AFBB", "#E7B800")) + scale_color_manual...= "white",position = "identity")+ # 密度图部分 geom_density(aes(color = sex), size = 1) + # 配色方案 scale_color_manual
#9932CC","#8B008B","#8B4513","#DEB887") a1 <- plot_cell_trajectory(HSMM, color_by = "seurat_clusters") + scale_color_manual...(values = colour) a2 <- plot_cell_trajectory(HSMM, color_by = "State") + scale_color_manual(values =...plot_cell_trajectory(HSMM, color_by = "Pseudotime") a4 <- plot_cell_trajectory(HSMM, color_by = "labels") + scale_color_manual...color_by = "labels") + theme(legend.position='none',panel.border = element_blank()) + #去掉第一个的legend scale_color_manual...plot_complex_cell_trajectory(HSMM, x = 1, y = 2, color_by = "labels")+ scale_color_manual
= r03xy+labs(title="Volcanoplot",x=expression(log[2](FC)), y=expression(-log[10](FDR))) > r03xyc + scale_color_manual...(values =c("green","black", "red")) >r03xyc + scale_color_manual(values =c("green","blue", "red")) ?...> volcano = r03xyc +scale_color_manual(values = c("green","blue","red")) >volcano+geom_hline(yintercept
= 1)+ geom_tippoint(aes(shape=group), show.legend = F, size=5)+ scale_color_manual...= 1)+ geom_tippoint(aes(shape=group), show.legend = F, size=5)+ scale_color_manual...= 1)+ geom_tippoint(aes(shape=group), show.legend = F, size=5)+ scale_color_manual
geom_line(aes(color=variants,lty=`Reference genome`))+ geom_point(aes(color=variants),size=5)+ scale_color_manual...=`Reference genome`), show.legend = FALSE)+ geom_point(aes(color=variants),size=5)+ scale_color_manual...geom_line(aes(color=variants,lty=`Reference genome`))+ geom_point(aes(color=variants),size=5)+ scale_color_manual...geom_line(aes(color=variants,lty=`Reference genome`))+ geom_point(aes(color=variants),size=5)+ scale_color_manual
variable, y = value, color = variable)) + geom_beeswarm(cex = 2, priority = "descending") + scale_color_manual...x = variable, y = value, color = variable)) + geom_beeswarm(cex = 2, priority = "descending") + scale_color_manual...variable, y = value, color = variable)) + geom_beeswarm(cex = 2, priority = "descending") + scale_color_manual..., y = value, color = variable)) + geom_beeswarm(cex = 2, priority = "descending", shape = 23) + scale_color_manual
Class,shape=group))+ geom_point(alpha=0.5)+ scale_size_continuous(range=c(1,10))+ theme_bw()+ scale_color_manual...Class,shape=group))+ geom_point(alpha=0.5)+ scale_size_continuous(range=c(1,10))+ theme_bw()+ scale_color_manual...Class,shape=group))+ geom_point(alpha=0.5)+ scale_size_continuous(range=c(1,10))+ theme_bw()+ scale_color_manual...Class,shape=group))+ geom_point(alpha=0.5)+ scale_size_continuous(range=c(1,10))+ theme_bw()+ scale_color_manual
y=len,fill=supp))+ geom_boxplot(position=position_dodge(),width=0.5)+ geom_jitter(width = 0.2)+ scale_color_manual...y=len,fill=dose))+ geom_boxplot(position=position_dodge(),width=0.5)+ geom_jitter(width = 0.2)+ scale_color_manual...len,fill=supp))+ geom_boxplot(position=position_dodge(),width=0.5)+ geom_jitter(width = 0.2)+ scale_color_manual...len,fill=supp))+ geom_boxplot(position=position_dodge(),width=0.5)+ geom_jitter(width = 0.2)+ scale_color_manual
(kg/ha)`))+ geom_point(aes(color=Soure),size=5)+ geom_smooth(aes(color=Soure),method = "lm")+ scale_color_manual...Harvested (ha)`))+ geom_point(aes(color=Soure),size=5)+ geom_smooth(aes(color=Soure),method = "lm")+ scale_color_manual...Production (kg)`))+ geom_point(aes(color=Soure),size=5)+ geom_smooth(aes(color=Soure),method = "lm")+ scale_color_manual
)) %>% ggplot(aes(x=PC1,y=PC2))+ geom_point(aes(color=new.group02), size=2)+ scale_color_manual...)) %>% ggplot(aes(x=PC1,y=PC3))+ geom_point(aes(color=new.group02), size=2)+ scale_color_manual...)) %>% ggplot(aes(x=PC1,y=PC2))+ geom_point(aes(color=new.group02), size=2)+ scale_color_manual...)) %>% ggplot(aes(x=PC1,y=PC3))+ geom_point(aes(color=new.group02), size=2)+ scale_color_manual
element_blank()) + geom_hline(yintercept=2 ,linetype=4) + geom_vline(xintercept=c(-1,1) ,linetype=4 ) + scale_color_manual...element_blank()) + geom_hline(yintercept=2 ,linetype=4) + geom_vline(xintercept=c(-1,1) ,linetype=4 ) + scale_color_manual...element_blank()) + geom_hline(yintercept=2 ,linetype=4) + geom_vline(xintercept=c(-1,1) ,linetype=4 ) + scale_color_manual
label01))+ geom_point(data=dat02,aes(x=x,y=y,color=`Normal tissue type`), size=5)+ scale_color_manual...new_scale_color()+ geom_point(data=dat03,aes(x=x,y=y,color=`Tissue subtype`), size=5)+ scale_color_manual...new_scale_color()+ geom_point(data=dat04,aes(x=x,y=y,color=Treatment), size=5,shape=15)+ scale_color_manual
#f04334","#99ca67","#994da5") ggtree(tree,layout = "circular")+ geom_tiplab(aes(color=group))+ scale_color_manual...inward_circular", xlim = c(40,NA), alpha=0)+ geom_tiplab(aes(color=group),show.legend=F)+ scale_color_manual...taxa2=taxa2, color=group1), hratio=3)+ scale_color_manual
aes(x = avg_log2FC, y = -log10(p_val_adj))) + geom_point(alpha=0.4, size=3.5, aes(color=change)) + #scale_color_manual...(values=c("blue", "grey","red"))+ scale_color_manual('change',labels=c(paste0("down(",table(markers$...gene")#画图ggplot(markers, aes(x=Difference, y=avg_log2FC, color = change)) + geom_point(size=1.2) + scale_color_manual
element_blank()) + geom_hline(yintercept=2 ,linetype=4) + geom_vline(xintercept=c(-1,1) ,linetype=4 ) + scale_color_manual...element_blank()) + geom_hline(yintercept=2 ,linetype=4) + geom_vline(xintercept=c(-1,1) ,linetype=4 ) + scale_color_manual...base_size = 15) + theme(panel.grid.minor = element_blank(),panel.grid.major = element_blank()) + scale_color_manual...base_size = 15) + theme(panel.grid.minor = element_blank(),panel.grid.major = element_blank() ) + scale_color_manual
log10(P))) + #设置点的大小,透明度 geom_point( aes(color=as.factor(CHR)), alpha=0.8, size=1.3) + #设置颜色 scale_color_manual...aes(x=BPcum, y=-log10(P))) + geom_point( aes(color=as.factor(CHR)), alpha=0.8, size=1.3) + scale_color_manual...aes(x=BPcum, y=-log10(P))) + geom_point( aes(color=as.factor(CHR)), alpha=0.8, size=1.3) + scale_color_manual...data, aes(x=BPcum, y=-log10(P))) + geom_point( aes(color=as.factor(CHR)), alpha=0.8, size=1.3) + scale_color_manual...BPcum, y=-log10(P), text=text)) + geom_point( aes(color=as.factor(CHR)), alpha=0.8, size=1.3) + scale_color_manual
领取专属 10元无门槛券
手把手带您无忧上云