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

问题描述

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

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,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.

graph of model prediction

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

data-visualization lm r r