使用具有随机效应的 lme 模型向 ggplot 添加拟合线

问：

我使用 nlme 从我的数据生成线性模型。

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

这是my_data的负责人：

my_data <- structure(list(metric = c(0.229408093077531, 0.557876142808238, 
-0.103660803953543, -0.100357167905223, -0.174724156150028, -0.304488308271723
), group = structure(c(2L, 2L, 2L, 2L, 2L, 2L), levels = c("unedited_baseline", 
"unedited_vehicle", "unedited_MSH3aso_0.022uM", "unedited_MSH3aso_0.26uM", 
"unedited_MSH3aso_3uM", "unedited_SCRaso_3uM"), class = "factor"), 
    time = c(3, 3, 3, 3, 3, 3), tech_rep = c(1L, 2L, 3L, 1L, 
    2L, 3L)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", 
"data.frame"))

我现在想使用 ggplot 进行绘图，并用 或 呈现线性回归线，因此我得到了 95% 的置信区间。但是，希望使用上述方式生成该行。我该怎么做？geom_smooth()stat_smooth()my_model

R，四处阅读，尚无解决方案