forestplot x-axis省略标签但绘制刻度线

时间:2014-01-21 13:27:13

标签: r plot forestplot

我在forestplot包中使用rmeta制作了一个情节。请注意,水平轴没有刻度线,标签在0.2和7之间。如何在1,2,3,4,5和6 处添加没有标记的刻度线而不用标记它们?我只想在这里打勾。这是情节: enter image description here

我如何得到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也会打印出来,我不想这样做。

1 个答案:

答案 0 :(得分: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"))

enter image description here

使用devtools下载开发版本:

devtools::install_github("gforge/forestplot", ref="develop")