更改 sjTable 格式?
Change sjTable formatting?
我下面有一个 sjTable,我想将其转换为数据 table 这样我就可以使用 kable 函数来更好地格式化。我尝试了几种方法,例如使用 data.table(tbl)
但它不起作用。
或者如果有人知道我如何使用 CSS 将此 sjTable 格式化为看起来类似于 kable table(在字体、间距、颜色主题方面),那也将不胜感激.本质上,我想将字体更改为默认的 kable table,并希望 table 波纹管更大/R markdown HTML 输出中的列和行之间的间距更大。
# load package
library(sjPlot)
library(haven)
# sample data
data("efc")
efc <- as_factor(efc, c161sex, c172code)
m1 <- lm(barthtot ~ c160age + c12hour + c161sex + c172code, data = efc)
tbl <- tab_model(m1, show.obs=FALSE)
tbl
不是从 tab_model
中提取 table,而是从模型本身提取值。例如,broom::tidy
为您提供了大部分所需的值。
broom::tidy(m1)
# term estimate std.error statistic p.value
# <chr> <dbl> <dbl> <dbl> <dbl>
#1 (Intercept) 90.1 6.17 14.6 5.07e-43
#2 c160age -0.222 0.0711 -3.12 1.90e- 3
#3 c12hour -0.278 0.0186 -14.9 1.15e-44
#4 c161sex -0.262 2.09 -0.125 9.00e- 1
#5 c172code -0.762 1.42 -0.537 5.92e- 1
如果需要,您可以更改标签并在 kable
中使用它。
我下面有一个 sjTable,我想将其转换为数据 table 这样我就可以使用 kable 函数来更好地格式化。我尝试了几种方法,例如使用 data.table(tbl)
但它不起作用。
或者如果有人知道我如何使用 CSS 将此 sjTable 格式化为看起来类似于 kable table(在字体、间距、颜色主题方面),那也将不胜感激.本质上,我想将字体更改为默认的 kable table,并希望 table 波纹管更大/R markdown HTML 输出中的列和行之间的间距更大。
# load package
library(sjPlot)
library(haven)
# sample data
data("efc")
efc <- as_factor(efc, c161sex, c172code)
m1 <- lm(barthtot ~ c160age + c12hour + c161sex + c172code, data = efc)
tbl <- tab_model(m1, show.obs=FALSE)
tbl
不是从 tab_model
中提取 table,而是从模型本身提取值。例如,broom::tidy
为您提供了大部分所需的值。
broom::tidy(m1)
# term estimate std.error statistic p.value
# <chr> <dbl> <dbl> <dbl> <dbl>
#1 (Intercept) 90.1 6.17 14.6 5.07e-43
#2 c160age -0.222 0.0711 -3.12 1.90e- 3
#3 c12hour -0.278 0.0186 -14.9 1.15e-44
#4 c161sex -0.262 2.09 -0.125 9.00e- 1
#5 c172code -0.762 1.42 -0.537 5.92e- 1
如果需要,您可以更改标签并在 kable
中使用它。