Accueil > R - Généralités > Tableaux 1, comparatifs & régression

Tableaux 1, comparatifs & régression

lundi 28 novembre 2022, par Philippe MICHEL

Dans un article de recherche, en particulier de recherche médicale, la section résultats comporte trois grands types de tableaux :

 le [*tableau 1*] qui décrit la population
 un ou plusieurs [*tableaux comparatifs*] qui montre les résultats en fonction du critère étudié (traitement A vs traitement B par ex.). Ces tableaux sont, dans leur réalisation, très proches du [*tableau 1*].
 un tableau présentant les résultats d’une [*analyse multivariée*], souvent par régression logistique.

Le package gtsummary propose des fonctions qui permettent de créer facilement ces tableaux avec une finition claire, digne des grandes revues.
Nous prendront comme exemple le data.frame [**trail2*] fournit avec le package, données fictives d’un essai clinique.

*Tableau 1 ou comparatif

Pour ces deux types de tableau nous utiliseront la fonction [**tbl_summary*] :

  1. library(gtsummary)
  2. data(trial)
  3. #
  4. trial |>
  5.   tbl_summary()

Télécharger

Le résultat est déjà très correct. Il est possible de sélectionner des variables & surtout de comparer les données selon une variable précise :

  1. trial |>
  2.   tbl_summary(by = trt) |>
  3.   add_p()

Télécharger

Il est possible d’affiner la présentation par exemple en mettant en gras les nomes des variables ou les p-values significatives, en ajoutant un titre etc. tout ça est très bien expliqué sur le site du package. Je voudrais juste présenter ici mon réglage personnel :

  1. tbl_summary(trial, by = trt) |>
  2.   add_p() |>
  3.   modify_spanning_header(c("stat_1", "stat_2") ~ "Traitement") |> # titre des colonnes
  4.   modify_caption("Tableau descriptif") |> # titre du tableau
  5.   bold_labels() |> #Nom des variables en gras
  6.   add_overall() |>
  7.   bold_p() |> # p-values significatives en gras
  8.   as_kable_extra(escape = FALSE,
  9.                  # Mise en forme des tableaux pour LaTeX
  10.                  booktabs = TRUE,
  11.                  longtable = TRUE) |>
  12.   kableExtra::kable_styling(position = "center",
  13.                             latex_options = c("repeat_header"))

Télécharger

Portfolio