求解答
使用forestploter包和grid包绘制森林图时,森林图挤在一起,应该如何调整?
代码如下:
OR=read.csv("Forest.csv", header = T)
OR$"OR(95% CI)" = sprintf("%.2f(%.2f to %.2f)", OR$or, OR$or_lci95, OR$or_uci95)
OR$pval = ifelse(OR$pval < 0.001, "<0.001", sprintf("%.3f", OR$pval))
OR$"" = paste(rep("",40), collapse = "")
tm <- forest_theme(base_size = 10, #文本大小
ci_pch = 216, #可信区间形状
ci_col = "black", #ci颜色
ci_fill = "royalblue",#ci填充
ci_alpha = 0.8, #ci透明度
ci_lty = 1, #ci线形
ci_lwd = 1.8, #ci线宽
ci_Theight = 0.1, #ci两侧竖线的高度
refline_gp = gpar(lwd = 1, lty = "dashed", col = "grey40"), #参考线
footnote_gp = gpar(col = "blue", cex = 0.6),
core=list(bg_params=list(fill = c("white"))))
OR1=OR[,c(1, 2, 3, 9, 5, 8)]
colnames(OR1) <- c("Exposure", "Method", "nSNPs","", "P-value","OR(95% CI)")
p <- forest(OR1, #重新排序
est = OR$or,
lower = OR$or_lci95,
upper = OR$or_uci95,
sizes = 0.5,#点尺寸
ci_column = 4,#绘制的图在哪一列,新的空白一列位置
ref_line = 1,
xlim = c(0.5,1.5), #X轴范围
ticks_at = c(0.5,1,1.5),#X轴刻度
footnote = "P<0.05 was considered statistically significant",
theme = tm)
p

十分感谢