Início / coding / Perguntas / 79305849
Accepted
robertspierre
Asked: 2024-12-24 22:41:41 +0800 CST

modelsummary: colocar título no topo

  • 772

Considere o seguinte exemplo:

id <- rep(seq(1,10), each=5)
year <- rep(seq(2021, 2025), times=10)
df <- data.frame(id=id, year=year)
df[["weight"]] <- rnorm(nrow(df), 100, 10)
df[["height"]] <- 2*df$weight+rnorm(nrow(df), 0, 5)
df[["count"]] <- rpois(nrow(df), df$height+rnorm(nrow(df), 0, 5))
mod <- fixest::fepois(count ~ height | id, df)
modelsummary::modelsummary(mod, title="This is my title")

Quero o título da tabela em cima dela:

insira a descrição da imagem aqui

1 respostas

  1. Best Answer

    Alguns antecedentes:

    1. modelsummaryusa o tinytablepacote para desenhar tabelas.
    2. tinytableusa Bootstrap 5 para estilizar tabelas.
    3. O Bootstrap 5 coloca a legenda na parte inferior, mas você pode aplicar uma classe de tabela para alterar isso.

    Você pode aplicar classes de tabela usando a style_tt()função do tinytablepacote para alterar a posição da legenda. Este é o documento aqui: https://vincentarelbundock.github.io/tinytable/vignettes/custom.html#bootstrap-classes

    Na prática, ficará assim:

    library(modelsummary)
library(tinytable)
modelsummary(models, title = "Hello world!") |>
  style_tt(bootstrap_class = "table caption-top")

    Para sua conveniência, você pode definir um tema personalizado para aplicar essa alteração a todas as suas tabelas automaticamente. Veja a documentação aqui:

    https://vincentarelbundock.github.io/tinytable/vignettes/theme.html#custom-themes

    • 1

relate perguntas