将混合模型的预测绘制为R中的一条直线

library(lme4)
library(ggplot2)

data <- read.csv("data.csv")  # 替换为你的数据集文件路径

model <- lmer(response ~ predictor + (1 | group), data = data)

predictions <- predict(model, newdata = data.frame(predictor = seq(min(data$predictor), max(data$predictor), length.out = 100)))

ggplot(data, aes(x = predictor, y = response)) +
  geom_point() +
  geom_line(data = data.frame(predictor = seq(min(data$predictor), max(data$predictor), length.out = 100), response = predictions), aes(x = predictor, y = response), color = "red") +
  labs(x = "Predictor", y = "Response") +
  theme_minimal()