为geom_linerange和geom_hline分隔图例

时间:2014-11-18 05:41:59

标签: r ggplot2

我确信这个问题有些问题。但我已经尝试过,我无法理解它!我正试图在ggplot2中管理我的传说。这是我的代码:

g <- ggplot(results, aes(x=index, color=includes_truth))
g <- g + geom_linerange(aes(ymax=ub.CACE_hat, ymin=lb.CACE_hat), alpha=.5)
g <- g + theme_bw()
g <- g + theme(axis.ticks.y = element_blank(), 
                axis.text.y = element_blank(), 
                axis.title.y = element_blank(),
                legend.position="bottom")
g <- g + ylab(expression("Estimate" %+-% 1.96*" Bootstrapped Standard Error"))
g <- g + ggtitle("Coverage of Bootstrapped 95% Confidence Interval")
g <- g + geom_hline(yintercept=true_cace,colour="red", linetype = "longdash")
g <- g + coord_flip()

我对这两种间隔的传说感到满意(包括真相与否)但我希望geom_hline也有一个传说,即“真实的CACE”。

我发布了一张照片,但还没有足够的代表......

这是数据集的前10行:

    lb.CACE_hat   ub.CACE_hat      index includes_truth
910  -0.2925184  0.0081482459 -0.3425184          FALSE
835  -0.2760973  0.0009649981 -0.3260973          FALSE
382  -0.2749657 -0.0095546577 -0.3249657          FALSE
164  -0.2726825 -0.0171725490 -0.3226825          FALSE
931  -0.2615927 -0.0092937132 -0.3115927          FALSE
451  -0.2614677  0.0094599885 -0.3114677          FALSE
876  -0.2585660  0.0187700913 -0.3085660          FALSE
827  -0.2565962  0.0316608976 -0.3065962          FALSE
671  -0.2565856  0.0078546241 -0.3065856          FALSE
203  -0.2491911  0.0304410876 -0.2991911          FALSE

0 个答案:

没有答案