R语言可视化开发forestplot根据分组设置不同颜色
目录
- 分组设置颜色
- 给每行增加辅助线
分组设置颜色
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语言可视化开发forestplot根据分组设置不同颜色的详细内容,更多关于forestplot分组设置颜色的资料请关注脚本之家其它相关文章!
推荐阅读
- R语言使用gganimate创建可视化动图
- MobileForm控件的使用方式-用.NET(C#)开发APP的学习日志
- Android Studio 开发安卓软件时下载的工程项目 Sync with gradle 失败
- GenXus进行APP开发-全局颜色设计
- Android开发 关于静态static类与static方法持有Context是否导致内存泄露的疑问
- 什么是最好的统计编程语言(信息图)
- Python元组权威开发教程
- 慎用uniapp开发商业级应用
- 开发框架-APP(Hybird App)
- 操作系统(Android(Google公司开发的操作系统))