geom_ribbon set slope＆amp;截距

Question

我使用此代码使用ggplot创建了以下图：

虚线是我的模型，实线是生成的参考线：

geom_abline(slope = 1, intercept = 0)

我想在我的参考线周围添加一条色带，其斜率范围为0.9到1.1（截距仍然保持为0）。有人能为我提供一个如何编码的例子吗？

Answer 1

这可能是一种矫枉过正，但我​​的解决方案是 - 在背景中用不同的斜率绘制多个底线。

# Generate dummy model data
dModel <- data.frame(x = 5:10, y = sqrt(5:10))

# Plot data
library(ggplot2)

ggplot(dModel) + 
    # Model
    geom_line(aes(x, y), linetype = 2) +
    # This will be ribbon - multiple lines with different slopes
    geom_abline(slope = seq(0.9, 1.1, 0.001), color = "grey60", intercept = 0) +
    geom_abline(slope = 1, intercept = 0) +
    coord_cartesian(ylim = c(1, 10), xlim = c(1, 10)) +
    theme_classic()

结果：