如何从lmer中绘制和拉出不同组的斜率和截取值？

library(lme4)
model <- lmer(Y ~ X + (1|Group), data = dataset)

coefficients <- coef(model)
intercept <- coefficients[[1]]
slope <- coefficients[[2]]

library(ggplot2)
data <- data.frame(Group = unique(dataset$Group), Intercept = intercept, Slope = slope)
ggplot(data, aes(x = Group, y = Intercept)) + geom_line() + geom_point() + labs(x = "Group", y = "Intercept")
ggplot(data, aes(x = Group, y = Slope)) + geom_line() + geom_point() + labs(x = "Group", y = "Slope")