Pacote_Tableone

Table1

Tableone

# Carregar pacote necessário
library(tableone)

## Warning: pacote 'tableone' foi compilado no R versão 4.4.1

# Criar um exemplo de base de dados fictícia
set.seed(123)  # Para reprodutibilidade
n <- 500
dados_ficticios <- data.frame(
  idade = rnorm(n, mean = 45, sd = 15),  # Idade fictícia com média de 45 e desvio padrão de 15
  genero = factor(sample(c("Masculino", "Feminino"), n, replace = TRUE, prob = c(0.4, 0.6))),  # Gênero com distribuição fictícia
  escolaridade = factor(sample(c("Fundamental", "Médio", "Superior"), n, replace = TRUE, prob = c(0.3, 0.5, 0.2))),  # Escolaridade
  atividade_fisica = factor(sample(c("Ativo", "Inativo"), n, replace = TRUE, prob = c(0.7, 0.3))),  # Atividade física
  grupo_risco = factor(sample(c("Baixo", "Alto"), n, replace = TRUE, prob = c(0.8, 0.2)))  # Grupo de risco (variável de estratificação)
)

# Definir variáveis para a tabela
vars <- c("idade", "genero", "escolaridade", "atividade_fisica")

# Criar a tabela estratificada por 'grupo_risco'
tabela <- CreateTableOne(data = dados_ficticios, vars = vars, strata = "grupo_risco")

# Exibir a tabela com todos os níveis de cada variável
print(tabela, showAllLevels = TRUE)

##                       Stratified by grupo_risco
##                        level       Alto          Baixo         p      test
##   n                                  100           400                    
##   idade (mean (SD))                45.23 (14.52) 45.59 (14.63)  0.825     
##   genero (%)           Feminino       61 (61.0)    251 (62.7)   0.835     
##                        Masculino      39 (39.0)    149 (37.2)             
##   escolaridade (%)     Fundamental    24 (24.0)    123 (30.8)   0.263     
##                        Médio          51 (51.0)    201 (50.2)             
##                        Superior       25 (25.0)     76 (19.0)             
##   atividade_fisica (%) Ativo          58 (58.0)    295 (73.8)   0.003     
##                        Inativo        42 (42.0)    105 (26.2)