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

WTRD

已于 2022-02-10 16:55:37 修改

阅读量6.6k

点赞数 4

分类专栏：可视化 R 文章标签： r语言开发语言

于 2021-06-29 15:25:41 首次发布

本文链接：https://blog.youkuaiyun.com/Alleine/article/details/118336110

版权

R 同时被 2 个专栏收录

6 篇文章

订阅专栏

可视化

3 篇文章

订阅专栏

本文介绍如何使用R语言的forestplot包进行目录分组设置颜色，并为每行增加辅助线，通过具体代码示例展示了不同组别颜色的设置方法及增加水平辅助线的实现过程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

分组设置颜色

library(forestplot)

fn <- local({
  i = 0
  function(..., clr.line, clr.marker){
    i <<- i + 1
    if(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

在这里插入图片描述