0

I would like to quickly change the column labels in a gt table of several models. Is there an easier way than providing a named vector? It would be nice to just provide a vector of names.

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')
4

1 回答 1

2

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

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")
于 2021-11-10T19:00:07.950 回答