r - 如何将模型预测和原始数据结合在 R 中的单个图上？

Question

我已经从三向线性混合模型生成了一个重要的交互/模型预测图，我现在正试图将原始数据点合并到该图的顶部。我可以使用以下代码创建模型估计图（附图）：

mod.2 <-lm(logRTs ~ 
           bilec_total_input2*Away_Towards*Diagnosis, 
           data = trimmedRT)
summary(mod.2)

fit <- lm(logRTs ~ bilec_total_input2*Away_Towards*Diagnosis, 
          data = trimmedRT)
graph <- plot_model(fit, type = "pred", 
                  terms = c("bilec_total_input2", 
                            "Away_Towards", 
                            "Diagnosis"
                            )
                    )
plot_model(fit, type = "int") 

我可以使用以下方法生成原始数据图：

rawdatagraph <- ggplot(trimmedRT,
                       aes(bilec_total_input2, logRTs, 
                       colour = Away_Towards)
                      ) 
                      + geom_point() 
Graph + facet_grid(. ~ Diagnosis)

但我无法合并数据。我试过这个：

rawdatagraph + ggplot(trimmedRT,
                      aes(bilec_total_input2, logRTs, colour = Away_Towards)
                      ) 
                      + geom_point() 
Graph + facet_grid(. ~ Diagnosis)

我也试过：

graph + geom_point(data = trimmedRT, 
                  aes(x = logRTs, y = bilec_total_input2, 
                  colour= Away_Towards))
                   

我不断收到此消息：Error in FUN(X[[i]], ...) : object 'group_col' not found.

模型预测图

标签： rdata-visualizationlm