我即将用R/ggplot2绘制比值比,我想在X轴标签下面或旁边添加两个箭头.一个指向左侧,一个指向右侧,显示减少/增加的影响.我尝试过很多东西,比如geom_path,geom_line,没有太大的成功.这是我的代码:
forest <- function(d, xlab="Odds Ratio", ylab="Influencing variables"){
require(ggplot2)
p <- ggplot(d, aes(x=ordered(x, levels=rev(x)), y=y, ymin=ylo, ymax=yhi)) +
geom_pointrange() +
geom_segment(aes(x = 0, xend = 0, y= 1, yend= 2)) +
coord_flip() +
geom_hline(aes(yintercept=1), lty=2) +
ylab(xlab) +
xlab(ylab) +
scale_y_log10()
return(p)
}
##Test Data
data <- data.frame( x = c("A","B","C","D","E","F","G","H","I"),
y = c(1.782,0.136,0.978,0.645,0.518,1.474,0.855,0.673,0.369))
data <- transform(data, ylo = (0.719,0.046,0.945,0.295,0.188,0.577,0.407,0.310,0.145),
yhi = c(4.420,0.398,1.012,1.411,1.424,3.768,1.798,1.460,0.940))
forest(data)
添加像geom_line(aes(x = 1),arrow = arrow(length = unit(0.15,"cm")),color ="black",size = 1这样的行会带来一些箭头,但它们会与我的原始数据发生碰撞.
在此先感谢您的解决方案,帮助或提示!
渣