scale_colour_manual函数为ggplot2包自带的函数,函数的用法如下: scale_colour_manual( ..., values, aesthetics = "colour", breaks = waiver(), na.value = "grey50") values为我们指定的颜色, aesthetics 有"colour", "fill"两种选择,指定是使用指定颜色还是填充色,na.value指定缺失值的颜色。 二、使用fi...
当然,也有其它的可以选择,比如:scale_fill_discrete 可以指定离散型配色;scale_colour_viridis_d() 和 scale_colour_viridis_c() 分别指定离散型和连续型的配色,等等,感兴趣可以自行查阅说明书,不多赘述。 但是,如果除了指定颜色,还想指定特定变量的特定颜色,或者指定变量以特定顺序排列在横坐标,以及图例填充颜色和...
scale_color_manual()函数采取的是手动赋值的方法,也就是直接把颜色序列赋值给它的参数value。 p41 <- p01+ scale_fill_manual(values = c("sienna1", "sienna4", "hotpink1", "hotpink4")) p42 <- p01 + scale_fill_manual(values = c("tomato1", "tomato2", "tomato3", "tomato4")) p41 ...
ggplot(diamonds,aes(carat,price,colour=cut))+geom_point()+scale_colour_manual(values=c("#84CEFC","#ACDAE4","#5C9EA4","#04FEFC","#4CD2CC")) 连续型: 双色渐变: ggplot(diamonds,aes(carat,price,colour=depth))+geom_point()+scale_colour_gradient(low="white",high="Blue") 三色渐变: ...
scale_colour_manual(values = c("#FED43999","#709AE199","#8A919799","#D2AF8199"))+ stat_compare_means(comparisons = my_comparisons) print(boxplot) dev.off() 3.5 多基因多组差异箱线图 代码语言:text 复制 #读取文件 rt=read.table(inputFile, header=T,sep="\t",check.names=F,row.na...
# 方式一:使用scale_color_manual函数 ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, colour = Species)) + scale_color_manual(values = c("orange", "olivedrab", "navy")) + geom_point(size = 2) # 方式二:使用scale_color_brewer函数 ...
scale_color_gradientn创建n色渐变 双色渐变 aaa=mpgaaa$cty<- aaa$cty-20f <- ggplot(aaa, aes(cty, hwy))+ geom_point(aes(color=cty))f + scale_colour_gradient(low = "green", high = "red")低-中-高三色渐变 f + scale_color_gradient2(low = "green", mid = "black", high n色渐变...
ggplot(ToothGrowth, aes(x=dose, y=len,color=dose)) +geom_boxplot(outlier.colour="red", outlier.shape=7,outlier.size=4)+scale_color_manual(values=c("#999999","#E69F00","#56B4E9"))+theme(legend.position="right")+labs(title="Plot of length per dose",x="Dose (mg)", y ="Lengt...
ggplot(df,aes(x,y))+geom_point(aes(colour=z1))+scale_color_gradientn(colours = rainbow(8)) 自定义颜色:scale_colour_manual函数 p <- ggplot(mtcars,aes(mpg,wt))+geom_point(aes(color=factor(cyl))) p+scale_color_manual(values=c('red','blue','green')) ...
colour= 'white', expand = 1) + scale_fill_continuous_c4a_seq('magma', reverse = F) + scale_edge_color_manual(values = rev(c4a('pastel', 11))) + theme_void p2 ##使用原KEGG通路map进行映射 #高亮adjusted p≤0.05的差异表达基因: ...