带有 ggplot 和 html 表的多面板图

如何解决带有 ggplot 和 html 表的多面板图

我想制作一个带有多个面板的图形，混合 ggplot 对象和从 tab_model 包的 sjplot 函数获得的表格。下面是一个例子：

library(sjplot)

# predictors
a = seq(0,1,by = 0.1)
b = runif(length(a),1)
# residuals
eps = rnorm(length(a),0.1)
# response varibale
y = 2*a + 1.5*b + 2.5*a*b + eps

model = lm(y ~ a*b)

p = plot_model(model,type = "pred",terms = c("a","b [0.3,0.7]"))
results = tab_model(model)

所以我想在同一个图中绘制 p（ggplot 对象）和 results（sjTable 对象）。类似：

grid.arrange(p,results)

有什么解决办法吗？似乎 sjplot 在这里没有提供任何解决方案。我应该将 sjTablele 对象转换为不同的格式吗？ 我很喜欢tab_model函数返回的表，所以如果可能的话，我想坚持下去。

谢谢！