Résumé statistique avec summarizor

Les packages à charger

library(flextable)
use_df_printer()

On va utilise dans notre exemple le tableau datasets::CO2.

CO2[-1]

Type	Treatment	conc	uptake
Quebec	nonchilled	95	16.0
Quebec	nonchilled	175	30.4
Quebec	nonchilled	250	34.8
Quebec	nonchilled	350	37.2
Quebec	nonchilled	500	35.3
Quebec	nonchilled	675	39.2
Quebec	nonchilled	1,000	39.7
Quebec	nonchilled	95	13.6
Quebec	nonchilled	175	27.3
Quebec	nonchilled	250	37.1
n: 84

L’objet retourné par summarizor() est un tableau restructuré de manière à pouvoir être utilisé comme entrée par tabulator().

obj <- summarizor(CO2[-1], by = "Treatment", overall_label = "Overall")
obj

variable	stat	cts	percent	data_type	value1	value2	Treatment
Type	Quebec	21	0.5	discrete			nonchilled
Type	Mississippi	21	0.5	discrete			nonchilled
Type	missing	0	0.0	discrete			nonchilled
conc	mean_sd			continuous	435.0	297.7	nonchilled
conc	median_iqr			continuous	350.0	500.0	nonchilled
conc	range			continuous	95.0	1,000.0	nonchilled
conc	missing	0	0.0	continuous			nonchilled
uptake	mean_sd			continuous	30.6	9.7	nonchilled
uptake	median_iqr			continuous	31.3	12.2	nonchilled
uptake	range			continuous	10.6	45.5	nonchilled
n: 33

Créons maintenant un tableau croisé de ce résumé en appelant as_flextable().

ft <- as_flextable(obj, spread_first_col = TRUE, separate_with = "variable")
ft

Type	Treatment	conc	uptake
factor	factor	numeric	numeric
Quebec	nonchilled	95	16.0
Quebec	nonchilled	175	30.4
Quebec	nonchilled	250	34.8
Quebec	nonchilled	350	37.2
Quebec	nonchilled	500	35.3
Quebec	nonchilled	675	39.2
Quebec	nonchilled	1,000	39.7
Quebec	nonchilled	95	13.6
Quebec	nonchilled	175	27.3
Quebec	nonchilled	250	37.1
n: 84