将 nlme 模型中的拟合线添加到 ggplot，并包括置信区间

问：

我使用 nlme 对我的数据进行建模，如下所示：

library(nlme)
my_model <- lme(metric ~ group * time, random = "~1 | tech_rep", na.action = "na.omit", data = my_data)

然后，我想绘制我的数据，但包括 nlme 模型中的拟合线。我从一些帖子中收集到可以做到这一点（从 lme fit 中提取预测波段）。我已经设法添加了这些线，但我也希望置信区间显示为线周围的共享区域（默认为 ）。设置似乎什么也没做。ggpredictgeom_smoothse = TRUE

ggpredict_data <- ggpredict(my_model, c("time", "group"), type = "re")
ggplot(ggpredict_data, aes(x = x, y = predicted, colour = group, fill = group)) +
    stat_smooth(method = "lm", se = TRUE, fullrange = TRUE) +
    geom_point(data = my_data,
               aes(x = time, y = metric, colour = group))

谁能帮助使置信区间起作用？

R，四处阅读，尝试其他帖子