0

forestplot我在rmeta包装中有一个情节。请注意，水平轴在 0.2 和 7 之间没有刻度线和标签。如何在没有标签的情况下在 1、2、3、4、5 和 6 处添加没有标签的刻度线？我只想要这里的刻度线。这是情节： 在此处输入图像描述

我如何在 0.2、1、2、3、4、5、6 和 7 处有刻度，但我只在 c(0.2,7) 处标记？这是代码：

library(rmeta)
tabletext<-rbind(c("A","3.77"),
             c("B","1.33"),
             c("C","1.32"),
             c("D","1.12"),
             c("E","1.58"),
             c("F","0.9"))
m=c(3.77,1.33,1.32,1.12,1.58,0.9)
l=c(0.6144,0.644,0.6536,0.4536,1.0116,0.7236)
u=c(6.9256,2.016,1.9864,1.7864,2.1484,1.0764)
#overview datafile:
cbind(tabletext, m,l,u)
                       m      l        u       
[1,] "A"         "3.77" "3.77" "0.6144" "6.9256"
[2,] "B"         "1.33" "1.33" "0.644"  "2.016" 
[3,] "C"         "1.32" "1.32" "0.6536" "1.9864"
[4,] "D"         "1.12" "1.12" "0.4536" "1.7864"
[5,] "E"         "1.58" "1.58" "1.0116" "2.1484"
[6,] "F"         "0.9"  "0.9"  "0.7236" "1.0764"
forestplot(tabletext,m,l,u, zero=1, xticks=c(0.2,7),col=meta.colors(box="royalblue",line="darkblue", summary="royalblue"))

我可以将 xticks=c(0.2,7) 扩展到 xticks=c(0.2,1,2,3,4,5,6,7)，但是 2,3,4,5,6 处的所有标签都会也被打印，我不想这样做。

4

1 回答 1

0

谢谢你的建议。rmeta 没有此选项，但我已将其添加到 forestplot-package（目前在开发分支 1.2.1 中）：

tabletext<-rbind(c("A","3.77"),
                 c("B","1.33"),
                 c("C","1.32"),
                 c("D","1.12"),
                 c("E","1.58"),
                 c("F","0.9"))
m=c(3.77,1.33,1.32,1.12,1.58,0.9)
l=c(0.6144,0.644,0.6536,0.4536,1.0116,0.7236)
u=c(6.9256,2.016,1.9864,1.7864,2.1484,1.0764)

#overview datafile:
xticks <- seq(from = 0.2, to = 7, by = .5)
xlabels <- rep(TRUE, length.out = length(xticks))
xlabels[xticks > 2] <- FALSE
xlabels[length(xlabels)] <- TRUE
attr(xticks, "labels") <- xlabels
forestplot(tabletext,new_page = TRUE,
           m,l,u, 
           zero=1, 
           xticks=xticks,
           col=fpColors(box="royalblue",line="darkblue", summary="royalblue"))

在此处输入图像描述

使用 devtools 下载开发版本：

devtools::install_github("gforge/forestplot", ref="develop")
于 2015-08-30T18:45:12.847 回答