scale_fill_gradientn(colors = RColorBrewer::brewer.pal(9, 'Blues')) + theme_minimal() + ggnewscale ) + scale_fill_gradientn(colors = RColorBrewer::brewer.pal(9, "Reds")) + labs( fill_ggnewscale "dat2" ) p_heat_combined 如下图所示,两组数据以不同颜色方案(蓝色是dat1,红色是dat2)的方式组合到了一起,如果不需要分开两个颜色方案,可以关闭上述代码中的ggnewscale
, "B"="#019e74", "D"="#397eb9"))+ ggnewscale ::new_scale_color()+ ggnewscale::new_scale("size")+ geom_point(data=dat01.longer, aes
Actinobacteriota")), name="Phylum", guide=guide_legend(order=1))+ ggnewscale Negativicutes")), name="Class", guide=guide_legend(order=2))+ ggnewscale Lachnospirales")), name="Order", guide=guide_legend(order=3))+ ggnewscale
data.frame(x=c("A","B","C","D"), y=c(20,10,20,10)) 接下来是作图代码 library(ggplot2) library(ggnewscale color=newcol1))+ scale_color_manual(name=NULL, values = c("red","darkgrey"))+ ggnewscale
ezcox 很方便的做Cox回归分析模型和森林图 23 ggstream 公众号 DataCharm 看到的推文 河流图绘制技巧分享 之前有人在公众号留言问过鱼型图,但是自己也不知道,不过好像就是这个 24 ggnewscale github主页 https://github.com/eliocamp/ggnewscale 比如两组数据同时画到一张图上,每组数据都分别映射颜色,这个时候如果要用scale_color_manual ()更改颜色的话是不能按照不同的数据集来修改的,这个时候可以用这个包中的函数 如下代码 library(ggnewscale) library(ggplot2) df1<-data.frame(A=1:
alpha=0)+ geom_tiplab(aes(color=group),show.legend=F)+ scale_color_manual(values = col )+ ggnewscale hratio=3)+ scale_color_manual(values = c("#2398c5","#febf68")) 最终结果 image.png 这里还用到了ggnewscale
scale_color_manual(values = c("Colon"="#d38e91", "Liver"="#1f639a"))+ ggnewscale "Rectum"="#eb553a", "Liver"="#206599"))+ ggnewscale
Biocductor_packages <- c('GEOquery', 'hgu133plus2.db', 'ggnewscale
❞ library(tidyverse) library(ggsci) library(ggnewscale) library(MetBrewer) df1 <- read_tsv("data.xls
关注下方公众号下回更新不迷路 加载R包 library(ggtreeExtra) library(ggtree) library(treeio) library(tidyverse) library(ggnewscale
,"0d vs. 9d","3d vs. 6d","3d vs. 9d","6d vs. 9d"), y=c(20,22,24,10,10,10)) library(ggplot2) library(ggnewscale newcol2,y=log2FoldChange, color=newcol1))+ scale_color_manual(name=NULL, values = c("red","darkgrey"))+ ggnewscale
最终结果 R包版本 ther attached packages: [1] MetBrewer_0.2.0 ggsci_3.0.0 ggnewscale_0.4.9 lubridate_
Biocductor_packages <- c('GEOquery', 'hgu133plus2.db', 'ggnewscale
Biocductor_packages <- c('GEOquery', 'hgu133plus2.db', 'ggnewscale
/treedata-book/chapter7.html ❞ 加载R包 library(tidyverse) library(ggtree) library(ggtreeExtra) library(ggnewscale
tree,groupInfo) ggtree(new.tree,aes(color=group))+ scale_color_manual(values = c("red","gray"))+ ggnewscale
)+ scale_fill_manual(values = c("#deebf7","#9ecae1","#3182bd"), name=NULL)+ ggnewscale
(linkET) library(psych) library(reshape2) library(magrittr) library(ggtext) library(ggstar) library(ggnewscale
clusterProfiler')BiocManager::install('enrichplot')BiocManager::install('msigdbr')BiocManager::install('ggnewscale
加载R包 library(tidyverse) library(scales) library(MetBrewer) library(magrittr) library(ggpubr) library(ggnewscale