更改 gt table 中的列标签

Question

我想快速更改多个模型的 gt table 中的列标签。有没有比提供命名向量更简单的方法？最好提供一个名称向量。

data('mtcars')
str(mtcars)
mod1<-lm(mpg~wt, data=mtcars)
mod2<-lm(hp~wt, data=mtcars)
#install.packages('modelsummary')
library(modelsummary)
mods<-modelsummary(list(mod1, mod2), output="gt")
#install.packages('gt')
library(gt)
#install.packages('tidyverse')
library(tidyverse)
mods %>% 
cols_label("Model 1" = 'mpg', "Model 2"='hp')

Answer 1

您可以在调用 modelsummary 之前将名称向量传递给 setNames 函数 。这将命名您的模型列表。例如：

library(modelsummary) library(tidyverse) mod1 <- lm(mpg~wt, data=mtcars) mod2 <- lm(hp~wt, data=mtcars) list(mod1, mod2) %>% setNames(c("Model A", "Model B")) %>% modelsummary(output = "gt")

更改 gt table 中的列标签

change column labels in gt table

r

gt

modelsummary