Я только что удалил свой ответ за минуту до того, как понял, что вы не хотите сглаживать линию вокруг точек, а просто хотите показать области между ними, и точки подсчитываются до визуализации.
Этот способ печати может быть очень простым с geom_ribbon из пакета ggplot2 .
Например:
# 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")