如何仅显示geom_smooth预测的一部分？

library(ggplot2)

# 创建一个示例数据集
data <- data.frame(x = 1:10, y = c(1, 3, 2, 5, 4, 7, 6, 9, 8, 10))

# 绘制散点图和平滑曲线
p <- ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  geom_smooth()

# 设置geom_ribbon函数的参数，仅显示预测的一部分
p <- p + geom_ribbon(aes(ymin = predict(lm(y ~ x, data = data), data.frame(x = 5:8)),
                        ymax = predict(lm(y ~ x, data = data), data.frame(x = 5:8))),
                     fill = "blue", alpha = 0.3)

# 显示图形
print(p)