绘制R中*y = sin(x)*下的*阴影*区域

# 安装和加载必要的包
install.packages("ggplot2")
library(ggplot2)

# 生成x和y的数据
x <- seq(0, 2*pi, length.out = 100)
y <- sin(x)

# 创建一个空白的绘图区域
plot <- ggplot() +
  xlim(0, 2*pi) + ylim(-1, 1) +
  labs(x = "x", y = "y")

# 绘制sin(x)曲线
plot <- plot + geom_line(aes(x, y))

# 定义阴影区域的顶点坐标
vertices <- data.frame(
  x = c(x, rev(x)),
  y = c(y, rep(0, length(x)))
)

# 绘制阴影区域
plot <- plot + geom_polygon(data = vertices, aes(x, y), fill = "gray")

# 显示图形
plot