R：多组数据之间的阴影区域

我希望在R中实现以下效果：

我得到了以下形式的6组数据：

• 系列1：

  ---

  • a_1我刚刚删除了一分钟前给出的答案，因为我意识到您不想在点周围平滑一条线，只想显示点之间的区域，并且在可视化之前对点进行计数
    这种方法可以很容易地从中绘制
    例如：

    # load package
    library(ggplot2)
    # generate some data
    huron <- data.frame(year = 1875:1972,level = as.vector(LakeHuron)) 
    huron$level2 <- huron$level+runif(nrow(huron))*10-5
    # plot
    h <-ggplot(huron, aes(x=year))
    h + geom_ribbon(aes(ymin=level-1, ymax=level+1)) + geom_ribbon(aes(ymin=level2-1, ymax=level2+1), color="red",  fill="red")
    

    #加载包
    图书馆（GG2）
    #生成一些数据
    huron，如果您不喜欢灰色背景，请在最后一个命令的末尾添加
    +theme\u bw（）
    。谢谢，我正在尝试解决这个问题并阅读相关内容，以便在我的数据集上使用它，但是，这似乎正是我想要的