情节预测区间在积分

Question

说，我有这样的数据：

pred = rnorm(100, 0.1*(1:100), 1) 
interval_lower = pred - 1 
interval_upper = pred + 1 
sample_data <- data.frame(

    actual = rnorm(100, 0.1*(1:100), 2), 
    pred = pred, 
    interval_lower = interval_lower, 
    interval_upper = interval_upper) 

我怎么会产生与预测区间的曲线绘制在预测和实际的数据，其中的预测是在红色？

甚至不能加分的情节：

ggplot(data = sample_data) + geom_point(aes(x = 1:100, y = actual)) + 
    + geom_point(data = pred, colour = "red") 

Answer 1

我不是100％肯定你是问什么，但试试这个：

ggplot(data = sample_data, aes(x=1:100)) + 
    geom_point(aes(y = actual)) + 
    geom_errorbar(aes(ymin = interval_lower, ymax = interval_upper), colour = "red") + 
    geom_point(aes(y=pred), colour='red') 

在你的代码，第二个电话到geom_point()是没有意义的，因为你告诉它源数据帧是pred，它不是数据帧。它实际上只是图的主数据框中的一个字段，sample_data，您已经定义并已告知ggplot。

移动aes(x=1:100)部分的ggplot()通话的内部，而不是在所有的geom_point()和geom_errorbar()电话只是保存键入的有它的。