R语言复杂抽样调查数据统计描述和分析

gtsummary包中tbl_svysummary提供了统计描述；tableone包中的svyCreateTableOne提供了统计比较；原始描述和比较可以是有table1包。

#测试数据 library(survey) setwd("F://") data(Titanic) sur_des<-survey::svydesign(~1, data = as.data.frame(Titanic), weights = ~Freq) str(Titanic)

#1 使用gtsummary包 library(gtsummary) tabl1<-tbl_svysummary(data=sur_des,by = Survived, percent = "row", statistic=list(all_continuous() ~ "{median} ({p25}, {p75})", all_categorical() ~ "{n} ({p}%)"))

#2 使用tableone包 library(tableone) tabl2 <- svyCreateTableOne(vars = c("Age","Sex"), strata = "Survived", data = sur_des, factorVars = c("Age","Sex"))