3

我正在使用 R 中的 forestplot 包制作森林图。我的图中的行之间有很多空白。如何删除空间或将行挤在一起，以制作更整洁的小图？非常感谢。

library(forestplot)
main5 <- 
  structure(list(
    mean  = c(NA, NA,  0.80, 0.90, 0.7, 1.2),  
    lower = c(NA, NA,  0.70, 0.50, 0.59, 1.11),  
    upper = c(NA, NA,  1.02, 1.25, 1.04, 1.94)),   
    .Names = c("mean", "lower", "upper"), 
    row.names = c(NA, -6L), 
    class = "data.frame")

tabletext5<-cbind(
  c("", "Analysis", "Outcome: X",  Outcome: Y", "Outcome: Z", "Outcome: xx"),
  c("", "A 
          time",  "115987.8", "117604.4", "118518.6","115493.2"), 
  c("", "A 
          Outcomes", "813", "51", "715", "2114"), 
  c("", "B 
          time",  "114516.2", "118728.5", "117896.2","119096.3"), 
  c("", "B 
          Outcomes",  "1199", "71", "911","1109"), 
  c("", "HR", "0.8", "0.9", "0.7", "1.2"), 
  c("", "99% CI", "0.70, 1.02", "0.50, 1.25", "0.59, 1.04", "1.11, 1.94")) 

forestplot(tabletext5, 
           main5,new_page = TRUE,   
           hrzl_lines=list("3" = gpar(lwd=1, col="#444444")), 
           is.summary=c(TRUE, TRUE, rep(FALSE, 5)),
           txt_gp = fpTxtGp(label=gpar(cex=0.7)
           ),
           boxsize=0.3,
           xlog=T, 
           graphwidth = unit(9, "cm"),
           graphheight = unit(6, "cm"),
           clip= c(0.5, 3.0),
           xticks=c(0.5, 1.0, 1.5, 2.0, 2.5),
           xlab="   B worse                                                    A worse                                                        ",
           fs.xlab=60,
           col=fpColors(box="#7570B3",line="#7570B3"))  ##have picked the blue colour from the "dark2 palette
4

1 回答 1

1

lineheight财产在forestplot()做这项工作

forestplot(your_table, lineheight='lines')

如果要设置自定义高度，请使用lineheight=unit(1,'cm')，其中预期值为float。

于 2020-03-04T16:27:28.430 回答