Deskriptiv tabell (Baseline, Table 1)

Inom flera områden (medicin, ekonomi, etc) behövs en inledande beskrivning av studiepopulationen. Sådana beskrivningar brukar utgöra studiens Table 1, vilket är den första tabellen i studien. Produktion av Table 1 är således en del av många studier. För att skapa Table 1 använder vi paketet tableone. Användning av detta paketet är mycket enkelt och visas steg för steg här nedan.

Börja med att aktivera tidyverse, samt installera och aktivera tableone:

## Aktivera tidyverse
library(tidyverse)

## Installera tableone
install.packages("tableone")

## Aktivera tableone
library(tableone)

I detta exempel använder vi Right Heart Catetherization (RHC), som är en klinisk studie. Ladda ner data till R genom nedanstående kommando. Som framgår nedan sparar vi data till objektet rhc.

## Importera data
rhc <- read.csv("https://hbiostat.org/data/repo/rhc.csv", header = TRUE)

Variabelnamnen i en data frame är inte alltid lämpliga för presentation i en rapport. Därför använder vi paketet labelled, vilket gör det möjligt att ge varje variabel en label (etikett), som kan användas i presentationer och rapporter. Installera och aktivera paketet labelled:

install.packages("labelled")
library(labelled)

Från rhc data väljer vi de kolumner (variabler) som skall vara med i Table 1.

rhc2 <- select(rhc,
               adld3p,
               age,
               alb1,
               amihx,
               aps1,
               bili1,
               ca,
               card,
               cardiohx,
               cat1,
               cat2,
               chfhx,
               chrpulhx,
               crea1,
               death)

Vi fortsätter genom att ge varje variabel en label. Det görs genom följande kod:

var_label(rhc2) <- list(adld3p    = "ADL",
                        age       = "Age (years)",
                        alb1      = "Albumin (g/L)",
                        amihx	  = "Definite Myocardial Infarction",
                        aps1	  = "APACHE score",
                        bili1	  = "Bilirubin",
                        ca	  = "Cancer",
                        card	  = "Cardiovascular Diagnosis",
                        cardiohx  = "Cardiovascular disease",
                        cat1	  = "Primary disease category",
                        cat2	  = "Secondary disease category",
                        chfhx	  = "Congestive Heart Failure",
                        chrpulhx  = "Chronic Pulmonary Disease",
                        crea1	  = "Creatinine",
                        death	  = "Death at 180 days")

Skapa sedan första objektet, som vi kallar results. Funktionen vi använder heter CreateTableOne och den har argumenten vars, strata och data. Vi anger att vars är lika med alla kolumnnamnen i rhc2 (names(rhc2)), och att strata är kolumnen death. Detta kommer ge oss en Table 1 stratifierat på death. Vi specificerar också att data kommer från rhc2.

results <- CreateTableOne(vars=names(rhc2),
                          strata="death",
                          data=rhc2)

I nästa steg behöver vi tillämpa funktionen print() på föregående objekt (results). Print används för att styra vilken information som Table 1 skall innehålla. Som framgår här nedan finns en rad inställningar som kan justeras efter tycke och smak.

results2 <- as_tibble(print(results,
                             # Antal decimaler på kategoriska variabler
                             catDigits=2,
                             # Antal decimaler på kontinuerliga variabler
                             contDigits=1,
                             # Antal decimaler på p-värden
                             pDigits=5,
                             # Visa missing i en kolumn
                             missing=TRUE,
                             # Ange om det är medelvärden, SD eller medianer
                             explain=TRUE,
                             # Skriv inte ut resultatet förrän vi ber om det
                             printToggle=FALSE,
                             # Presentera P-värden
                             test=TRUE,
                             # Presentera standardized mean difference
                             smd=TRUE,
                             # Ta bort onödiga mellanrum
                             noSpaces=TRUE,
                             # Ska variabel labels användas istället?
                             varLabels=TRUE,
                             # ange om någon variabel inte är normalfördelad
                             nonnormal=c('age')),
                             # Ska radnamnen behållas, i så fall vad skall kolumnen heta?
                             rownames="Variable")

## Om du använder ett vanligt R-skript skriver du ut resultatet som följer:
results2

## Om du använder R Markdown skriver du ut resultatet som följer:
library(knitr)
kableone(results2)

Resultat