1

我使用 Forestplot 包创建了一个图表。r 脚本如下:

     forestplot(row_names, OR, low, high,
       txt_gp=fpTxtGp(label=list(gpar(fontfamily="Arial")), 
                      ticks=gpar(cex=1.1),
                      xlab=gpar(cex = 1.2,fontface="bold")),
       is.summary = 
     c(TRUE,FALSE,TRUE,rep(FALSE,3),TRUE,rep(FALSE,3),TRUE,rep(FALSE,3),TRUE,rep(FALSE,3),TRUE,
                      
      rep(FALSE,3),TRUE,rep(FALSE,3),TRUE,rep(FALSE,3),TRUE,rep(FALSE,3),TRUE,rep(FALSE,3),TRUE,
                      rep(FALSE,3),TRUE,rep(FALSE,3),TRUE,
                      rep(FALSE,49)),
       legend=c("Females", "Males"),
       fn.ci_norm=rep(c("fpDrawNormalCI", "fpDrawCircleCI")),
       xlab="Chronic phlegm",
       xticks= c(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24),
       col=fpColors(box="black", lines="black", zero = "black"),
       zero=1, lineheight = "auto", boxsize=0.4, colgap=unit(10,"mm"),
       lwd.ci=1, ci.vertices=TRUE, ci.vertices.height = 0.2, cex=1,clip=c(0.95,1.5),
       new_page = TRUE)

我想通过在点 8 到 23 处插入一个中断来缩短 x 轴。

4

0 回答 0