r - `sjPlot::tab_model()` 汇总统计数据重新排序和拆分 R-squared 和 R-squared-adjusted

Question

我sjPlot::tab_model()用来创建回归的输出表。（下面的可重现示例）。

关于表格下方汇总统计的两个快速问题：

1. 有什么方法可以让我在不同的行R^2上报告吗？R^2 adjusted
2. 如何重新排序汇总统计信息，例如$R^2$,AIC等？

library("sjPlot")

lm1 <- lm(mpg ~ cyl, mtcars)
lm2 <- lm(mpg ~ hp, mtcars)
lm3 <- lm(mpg ~ cyl + hp, mtcars)


tab_model(lm1, lm2, lm3,
          show.ci = 0,
          show.aic = 1,
          show.loglik = 1,
          show.fstat = 1,
          show.r2 = 1)

这是我目前得到的实际输出：

这是我想要的输出：