使用geom_ribbon函数向ggplot2图添加置信度带

使用geom_ribbon函数向ggplot2图添加置信度带

在数据可视化中，我们经常需要展示数据的变异性以及与之相关的置信度。其中，ggplot2是一个功能强大的R语言可视化包，提供了丰富的功能和灵活的图形定制选项。在这篇文章中，我将介绍如何使用ggplot2的geom_ribbon函数向图表中添加置信度带，以帮助读者更好地理解数据。

首先，我们需要载入所需的包，并准备一些演示数据。下面是一个简单的例子，我们将使用一组模拟的数据来创建一个散点图，并在图中添加置信度带。

# 载入所需的包
library(ggplot2)

# 创建演示数据
set.seed(2023)
n <- 100
x <- seq(1, n)
y <- sin(x/10) + rnorm(n)
df <- data.frame(x = x, y = y)

# 创建散点图
p <- ggplot(df, aes(x, y)) +
  geom_point() +
  labs(x = "X", y = "Y", title = "Scatter plot with confidence interval")

现在，我们已经创建了一个简单的散点图。接下来，我们将使用geom_ribbon函数添加置信度带。geom_ribbon函数可以根据给定的数据和参数，在图表中绘制一个带状区域，用来表示数据的置信度。

# 计算置信度的上下限
ci <- 1.96 * sd(df$y) / sqrt(n)
df$lower <- df$y -