分组设置颜色

library(forestplot)fn <- local({i = 0function(..., clr.line, clr.marker){i <<- i + 1if(i%%4==3){fpDrawNormalCI(..., clr.line = "#000000", clr.marker = "#00B9BF")} #4组中的第3组else if(i%%4==0){fpDrawNormalCI(..., clr.line = "#000000", clr.marker = "#C26EFF")} #4组中的第4组else if(i%%4==2 ){fpDrawNormalCI(..., clr.line = "#000000", clr.marker = "#6DA500")} #4组中的第2组else(fpDrawNormalCI(..., clr.line = "#000000", clr.marker = "#F9675C")) #4组中的第1组}
})tabletext=cbind(c("Outcomes",figure_2_data$Treatmeant),c("CI (95%OR)",figure_2_data$`OR (95% CI)*`),c("P Value", figure_2_data$P))forestplot(labeltext=tabletext,graph.pos = 2,mean = c(NA,figure_2_data$OR),lower = c(NA,figure_2_data$Low),upper = c(NA,figure_2_data$High),boxsize = 0.5,txt_gp=fpTxtGp(label=gpar(cex=1.25),ticks=gpar(cex=1.1),xlab=gpar(cex = 1.2),title=gpar(cex = 1.2)),zero = 1,align = "l",is.summary = c(T,T,F,F,F,F,T,F,F,F,F,T,F,F,F,F,T,F,F,F,F),col = fpColors(box = c("darkblue","darkred")),fn.ci_norm = fn,colgap = unit(8,"mm"),graphwidth = unit(12,"cm"))

效果图

给每行增加辅助线

line_list_Insuf1=list()
for (i in 1:84) {exprs=paste0("line_list_Insuf1$`",i,"`=gpar(lwd=1, columns=1:5, col = '#99999922')")eval(parse(text=exprs))
}
line_list_Insuf1$`1`=gpar(lwd=2, columns=1:7, col = '#202020')
line_list_Insuf1$`2`=gpar(lwd=2, columns=1:7, col = '#202020')# parse 将character转换为expression
# eval 执行 expression# forestplot 函数里面再加上这句参数
hrzl_lines = line_list_Insuf1

R语言forestplot 根据分组设置不同颜色相关推荐

R语言ggplot2可视化分组散点图、使用scale_shape_manual函数、scale_color_manual函数、scale_size_manual函自定义设置分组散点的形状、大小、颜色
R语言ggplot2可视化分组散点图.使用scale_shape_manual函数.scale_color_manual函数.scale_size_manual函数自定义设置分组散点的形状.大小.颜色 ...
细思极恐——R语言forestplot包画meta分析群体药动学常用森林图
细思极恐--R语言forestplot包画meta分析群体药动学常用森林图今天,笔者想分享一下最近科研作图的经历,最主要的就是用于群体药动学模型建立的森林图,其百度百科定义为: 森林图是以统计指标和 ...
R语言ggplot2可视化分组的重叠图实战：grouped overlay plot
R语言ggplot2可视化分组的重叠图实战:grouped overlay plot 目录 R语言ggplot2可视化分组的重叠图实战:grouped overlay plot #仿真数据
R语言ggplot2可视化分组散点图、将图例放置在图像内部的指定区域、自定义缩放图例中点形状pch的大小（增大或者缩小）、change size of shape elements
R语言ggplot2可视化分组散点图(scatter plot).将图例放置在图像内部的指定区域(legend inside plot specific region).自定义缩放图例中点形状pch的 ...
R语言编写自定义分组统计函数（customize statistics function）可视化分组箱图并在X轴标签下方添加分组对应的统计值（样本数N、中位数median、四分位数的间距iqr）
R语言编写自定义分组统计函数(customize statistics function)可视化分组箱图并在X轴标签下方添加分组对应的统计值(样本数N.中位数median.四分位数的间距iqr) 目录
R语言ggplot2可视化分组变量下的数据分布（线条、色彩配置）、WVPlots包的ShadowHist函数比较分组下的数据直方图、ggplot2分面图facet_wrap可视化分组变量下的数据分布
R语言ggplot2可视化分组变量下的数据分布(线条.色彩配置).WVPlots包的ShadowHist函数比较分组下的数据直方图.ggplot2分面图facet_wrap可视化分组变量下的数据分布 ...
R语言ggplot2可视化图像设置不同的字体实战
R语言ggplot2可视化图像设置不同的字体实战目录 R语言ggplot2可视化图像设置不同的字体实战 #查看字体
R语言ggplot2可视化强制设置x轴、y轴坐标的起始点为0或者其他实战
R语言ggplot2可视化强制设置x轴.y轴坐标的起始点为0或者其他实战目录 R语言ggplot2可视化强制设置x轴.y轴坐标的起始点为0或者其他实战
R语言计算每个分组的行数并将结果添加到dataframe中实战
R语言计算每个分组的行数并将结果添加到dataframe中实战目录 R语言计算每个分组的行数并将结果添加到dataframe中实战 #仿真数据

R语言forestplot 根据分组设置不同颜色

目录

分组设置颜色

给每行增加辅助线

R语言forestplot 根据分组设置不同颜色相关推荐

最新文章

热门文章