从lmer模型绘制随机截距

Question

我进行了如下回归分析：

fit <- lmer(support ~ 1 + (1 | country), data = df, REML = F)

我想绘制不同国家的截距。我尝试使用以下代码：

p1 <- ggplot(fit, aes(support, colour=country)) + geom_line()

不幸的是，它不起作用。有谁知道该怎么办？