1

我正在尝试修改 labeltext 斜体中的单个元素而不使整个列斜体，但没有运气。以下代码将使 1 斜体：

library(forestplot)

来自“rmeta”包的 Cochrane 数据

cochrane_from_rmeta <- 
structure(list(
mean  = c(NA, NA, 0.578, 0.165, 0.246, 0.700, 0.348, 0.139, 1.017, NA, 0.531), 
lower = c(NA, NA, 0.372, 0.018, 0.072, 0.333, 0.083, 0.016, 0.365, NA, 0.386),
upper = c(NA, NA, 0.898, 1.517, 0.833, 1.474, 1.455, 1.209, 2.831, NA, 
0.731)),
.Names = c("mean", "lower", "upper"), 
row.names = c(NA, -11L), 
class = "data.frame")

tabletext<-cbind(
 c("", "Study", "Auckland", "Block", 
 "Doran", "Gamsu", "Morrison", "Papageorgiou", 
"Tauesch", NA, "Summary"),
 c("Deaths", "(steroid)", "36", "1", 
"4", "14", "3", "1", 
"8", NA, NA),
c("Deaths", "(placebo)", "60", "5", 
"11", "20", "7", "7", 
"10", NA, NA),
c("", "OR", "0.58", "0.16", 
"0.25", "0.70", "0.35", "0.14", 
"1.02", NA, "0.53"))

 forestplot(tabletext, 
 txt_gp = fpTxtGp(label = list(gpar(fontface = 3),
                                     gpar(fontface = 1,
                                          )),
                        ticks = gpar(fontfamily = "", cex=1),
                        xlab  = gpar(fontfamily = "HersheySerif", cex = 1.5)),
       rbind(HRQoL$Sweden),
       col=clrs,
       xlab="EQ-5D index")

但是如何修改脚本以仅制作“男性对女性”斜体（即标签文本的元素 1,1）。

有关该功能的更多详细信息，请参见：https ://cran.r-project.org/web/packages/forestplot/forestplot.pdf

4

1 回答 1

1

目前仅支持使用 for 设置各个列的样式，fpTxtGp但如果您的表中没有任何摘要元素（来自小插图），您可以进行黑客攻击，从而为您提供相同的结果：

forestplot(tabletext, 
           boxsize = .05,
           is.summary=c(FALSE, FALSE, TRUE, FALSE),
           txt_gp = fpTxtGp(summary = list(
             gpar(fontfamily = "HersheyScript", fontface=1), 
             gpar(fontface=1)
             )
           ),
           rbind(HRQoL$Sweden),
           col=clrs,
           fn.ci_sum=function(col, size, ...) {
             fpDrawNormalCI(clr.line = col, clr.marker = col, size=.05, ...)
           },
           xlab="EQ-5D index")

森林图输出

于 2018-02-03T18:08:39.980 回答