如何使用ggplot从gamboost绘制多元回归模型

Question

我在这里以R为底的数据和绘图：

library(TH.data)
data("GlaucomaM")
names(GlaucomaM)
library(mboost)

glau_boost <- gamboost(Class ~., data = GlaucomaM, family = Binomial())

# layout(matrix(1:9, ncol = 3))
plot(glau_boost)

我想用ggplot制作这张图。我该怎么办？