print and summary method for "compare_category" class.
# S3 method for compare_category summary( object, method = c("all", "table", "relative", "chisq"), pos = NULL, na.rm = TRUE, marginal = FALSE, verbose = TRUE, ... ) # S3 method for compare_category print(x, ...)
| object | an object of class "compare_category", usually, a result of a call to compare_category(). |
|---|---|
| method | character. Specifies the type of information to be aggregated. "table" create contingency table, "relative" create relative contingency table, and "chisq" create information of chi-square test. and "all" aggregates all information. The default is "all" |
| pos | integer. Specifies the pair of variables to be summarized by index. The default is NULL, which aggregates all variable pairs. |
| na.rm | logical. Specifies whether to include NA when counting the contingency tables or performing a chi-square test. The default is TRUE, where NA is removed and aggregated. |
| marginal | logical. Specifies whether to add marginal values to the contingency table. The default value is FALSE, so no marginal value is added. |
| verbose | logical. Specifies whether to output additional information during the calculation process. The default is to output information as TRUE. In this case, the function returns the value with invisible(). If FALSE, the value is returned by return(). |
| ... | further arguments passed to or from other methods. |
| x | an object of class "compare_category", usually, a result of a call to compare_category(). |
print.compare_category() displays only the information compared between the variables included in compare_category. The "type", "variables" and "combination" attributes are not displayed. When using summary.compare_category(), it is advantageous to set the verbose argument to TRUE if the user is only viewing information from the console. It is also advantageous to specify FALSE if you want to manipulate the results.
# \donttest{ # Generate data for the example heartfailure2 <- heartfailure heartfailure2[sample(seq(NROW(heartfailure2)), 5), "smoking"] <- NA library(dplyr) # Compare the all categorical variables all_var <- compare_category(heartfailure2) # Print compare_category class objects all_var#> $`anaemia vs diabetes` #> # A tibble: 4 x 6 #> anaemia diabetes n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 98 0.328 0.576 0.563 #> 2 No Yes 72 0.241 0.424 0.576 #> 3 Yes No 76 0.254 0.589 0.437 #> 4 Yes Yes 53 0.177 0.411 0.424 #> #> $`anaemia vs hblood_pressure` #> # A tibble: 4 x 6 #> anaemia hblood_pressure n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 113 0.378 0.665 0.582 #> 2 No Yes 57 0.191 0.335 0.543 #> 3 Yes No 81 0.271 0.628 0.418 #> 4 Yes Yes 48 0.161 0.372 0.457 #> #> $`anaemia vs sex` #> # A tibble: 4 x 6 #> anaemia sex n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No Female 53 0.177 0.312 0.505 #> 2 No Male 117 0.391 0.688 0.603 #> 3 Yes Female 52 0.174 0.403 0.495 #> 4 Yes Male 77 0.258 0.597 0.397 #> #> $`anaemia vs smoking` #> # A tibble: 5 x 6 #> anaemia smoking n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 106 0.355 0.624 0.527 #> 2 No Yes 59 0.197 0.347 0.634 #> 3 No NA 5 0.0167 0.0294 1 #> 4 Yes No 95 0.318 0.736 0.473 #> 5 Yes Yes 34 0.114 0.264 0.366 #> #> $`anaemia vs death_event` #> # A tibble: 4 x 6 #> anaemia death_event n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 120 0.401 0.706 0.591 #> 2 No Yes 50 0.167 0.294 0.521 #> 3 Yes No 83 0.278 0.643 0.409 #> 4 Yes Yes 46 0.154 0.357 0.479 #> #> $`diabetes vs hblood_pressure` #> # A tibble: 4 x 6 #> diabetes hblood_pressure n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 112 0.375 0.644 0.577 #> 2 No Yes 62 0.207 0.356 0.590 #> 3 Yes No 82 0.274 0.656 0.423 #> 4 Yes Yes 43 0.144 0.344 0.410 #> #> $`diabetes vs sex` #> # A tibble: 4 x 6 #> diabetes sex n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No Female 50 0.167 0.287 0.476 #> 2 No Male 124 0.415 0.713 0.639 #> 3 Yes Female 55 0.184 0.44 0.524 #> 4 Yes Male 70 0.234 0.56 0.361 #> #> $`diabetes vs smoking` #> # A tibble: 6 x 6 #> diabetes smoking n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 106 0.355 0.609 0.527 #> 2 No Yes 64 0.214 0.368 0.688 #> 3 No NA 4 0.0134 0.0230 0.8 #> 4 Yes No 95 0.318 0.76 0.473 #> 5 Yes Yes 29 0.0970 0.232 0.312 #> 6 Yes NA 1 0.00334 0.008 0.2 #> #> $`diabetes vs death_event` #> # A tibble: 4 x 6 #> diabetes death_event n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 118 0.395 0.678 0.581 #> 2 No Yes 56 0.187 0.322 0.583 #> 3 Yes No 85 0.284 0.68 0.419 #> 4 Yes Yes 40 0.134 0.32 0.417 #> #> $`hblood_pressure vs sex` #> # A tibble: 4 x 6 #> hblood_pressure sex n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No Female 61 0.204 0.314 0.581 #> 2 No Male 133 0.445 0.686 0.686 #> 3 Yes Female 44 0.147 0.419 0.419 #> 4 Yes Male 61 0.204 0.581 0.314 #> #> $`hblood_pressure vs smoking` #> # A tibble: 6 x 6 #> hblood_pressure smoking n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 128 0.428 0.660 0.637 #> 2 No Yes 64 0.214 0.330 0.688 #> 3 No NA 2 0.00669 0.0103 0.4 #> 4 Yes No 73 0.244 0.695 0.363 #> 5 Yes Yes 29 0.0970 0.276 0.312 #> 6 Yes NA 3 0.0100 0.0286 0.6 #> #> $`hblood_pressure vs death_event` #> # A tibble: 4 x 6 #> hblood_pressure death_event n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 137 0.458 0.706 0.675 #> 2 No Yes 57 0.191 0.294 0.594 #> 3 Yes No 66 0.221 0.629 0.325 #> 4 Yes Yes 39 0.130 0.371 0.406 #> #> $`sex vs smoking` #> # A tibble: 6 x 6 #> sex smoking n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 Female No 100 0.334 0.952 0.498 #> 2 Female Yes 4 0.0134 0.0381 0.0430 #> 3 Female NA 1 0.00334 0.00952 0.2 #> 4 Male No 101 0.338 0.521 0.502 #> 5 Male Yes 89 0.298 0.459 0.957 #> 6 Male NA 4 0.0134 0.0206 0.8 #> #> $`sex vs death_event` #> # A tibble: 4 x 6 #> sex death_event n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 Female No 71 0.237 0.676 0.350 #> 2 Female Yes 34 0.114 0.324 0.354 #> 3 Male No 132 0.441 0.680 0.650 #> 4 Male Yes 62 0.207 0.320 0.646 #> #> $`smoking vs death_event` #> # A tibble: 6 x 6 #> smoking death_event n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 135 0.452 0.672 0.665 #> 2 No Yes 66 0.221 0.328 0.688 #> 3 Yes No 64 0.214 0.688 0.315 #> 4 Yes Yes 29 0.0970 0.312 0.302 #> 5 NA No 4 0.0134 0.8 0.0197 #> 6 NA Yes 1 0.00334 0.2 0.0104 #># Compare the two categorical variables two_var <- compare_category(heartfailure2, smoking, death_event) # Print compare_category class objects two_var#> $`smoking vs death_event` #> # A tibble: 6 x 6 #> smoking death_event n rate var1_rate var2_rate #> <fct> <fct> <int> <dbl> <dbl> <dbl> #> 1 No No 135 0.452 0.672 0.665 #> 2 No Yes 66 0.221 0.328 0.688 #> 3 Yes No 64 0.214 0.688 0.315 #> 4 Yes Yes 29 0.0970 0.312 0.302 #> 5 NA No 4 0.0134 0.8 0.0197 #> 6 NA Yes 1 0.00334 0.2 0.0104 #>#> ── Contingency tables ──────────────────────────── Number of table is 15 ── #> $`anaemia vs diabetes` #> diabetes #> anaemia No Yes #> No 98 72 #> Yes 76 53 #> #> $`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes #> No 113 57 #> Yes 81 48 #> #> $`anaemia vs sex` #> sex #> anaemia Female Male #> No 53 117 #> Yes 52 77 #> #> $`anaemia vs smoking` #> smoking #> anaemia No Yes #> No 106 59 #> Yes 95 34 #> #> $`anaemia vs death_event` #> death_event #> anaemia No Yes #> No 120 50 #> Yes 83 46 #> #> $`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes #> No 112 62 #> Yes 82 43 #> #> $`diabetes vs sex` #> sex #> diabetes Female Male #> No 50 124 #> Yes 55 70 #> #> $`diabetes vs smoking` #> smoking #> diabetes No Yes #> No 106 64 #> Yes 95 29 #> #> $`diabetes vs death_event` #> death_event #> diabetes No Yes #> No 118 56 #> Yes 85 40 #> #> $`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male #> No 61 133 #> Yes 44 61 #> #> $`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes #> No 128 64 #> Yes 73 29 #> #> $`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes #> No 137 57 #> Yes 66 39 #> #> $`sex vs smoking` #> smoking #> sex No Yes #> Female 100 4 #> Male 101 89 #> #> $`sex vs death_event` #> death_event #> sex No Yes #> Female 71 34 #> Male 132 62 #> #> $`smoking vs death_event` #> death_event #> smoking No Yes #> No 135 66 #> Yes 64 29 #> #> ── Relative contingency tables ─────────────────── Number of table is 15 ── #> $`anaemia vs diabetes` #> diabetes #> anaemia No Yes #> No 0.3277592 0.2408027 #> Yes 0.2541806 0.1772575 #> #> $`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes #> No 0.3779264 0.1906355 #> Yes 0.2709030 0.1605351 #> #> $`anaemia vs sex` #> sex #> anaemia Female Male #> No 0.1772575 0.3913043 #> Yes 0.1739130 0.2575251 #> #> $`anaemia vs smoking` #> smoking #> anaemia No Yes #> No 0.3605442 0.2006803 #> Yes 0.3231293 0.1156463 #> #> $`anaemia vs death_event` #> death_event #> anaemia No Yes #> No 0.4013378 0.1672241 #> Yes 0.2775920 0.1538462 #> #> $`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes #> No 0.3745819 0.2073579 #> Yes 0.2742475 0.1438127 #> #> $`diabetes vs sex` #> sex #> diabetes Female Male #> No 0.1672241 0.4147157 #> Yes 0.1839465 0.2341137 #> #> $`diabetes vs smoking` #> smoking #> diabetes No Yes #> No 0.36054422 0.21768707 #> Yes 0.32312925 0.09863946 #> #> $`diabetes vs death_event` #> death_event #> diabetes No Yes #> No 0.3946488 0.1872910 #> Yes 0.2842809 0.1337793 #> #> $`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male #> No 0.2040134 0.4448161 #> Yes 0.1471572 0.2040134 #> #> $`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes #> No 0.43537415 0.21768707 #> Yes 0.24829932 0.09863946 #> #> $`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes #> No 0.4581940 0.1906355 #> Yes 0.2207358 0.1304348 #> #> $`sex vs smoking` #> smoking #> sex No Yes #> Female 0.34013605 0.01360544 #> Male 0.34353741 0.30272109 #> #> $`sex vs death_event` #> death_event #> sex No Yes #> Female 0.2374582 0.1137124 #> Male 0.4414716 0.2073579 #> #> $`smoking vs death_event` #> death_event #> smoking No Yes #> No 0.45918367 0.22448980 #> Yes 0.21768707 0.09863946 #> #> ── Chi-squared contingency table tests ─────────── Number of table is 15 ── #> variable_1 variable_2 statistic p.value df #> 1 anaemia diabetes 1.035093e-02 9.189634e-01 1 #> 2 anaemia hblood_pressure 2.893564e-01 5.906333e-01 1 #> 3 anaemia sex 2.299464e+00 1.294186e-01 1 #> 4 anaemia smoking 2.539885e+00 1.110028e-01 1 #> 5 anaemia death_event 1.042175e+00 3.073161e-01 1 #> 6 diabetes hblood_pressure 9.476710e-03 9.224497e-01 1 #> 7 diabetes sex 6.783853e+00 9.198613e-03 1 #> 8 diabetes smoking 6.098542e+00 1.352935e-02 1 #> 9 diabetes death_event 2.161684e-30 1.000000e+00 1 #> 10 hblood_pressure sex 2.829289e+00 9.255934e-02 1 #> 11 hblood_pressure smoking 5.308209e-01 4.662619e-01 1 #> 12 hblood_pressure death_event 1.543461e+00 2.141034e-01 1 #> 13 sex smoking 5.548177e+01 9.432978e-14 1 #> 14 sex death_event 0.000000e+00 1.000000e+00 1 #> 15 smoking death_event 2.183342e-02 8.825311e-01 1# Summary by returned objects stat#> $table #> $table$`anaemia vs diabetes` #> diabetes #> anaemia No Yes #> No 98 72 #> Yes 76 53 #> #> $table$`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes #> No 113 57 #> Yes 81 48 #> #> $table$`anaemia vs sex` #> sex #> anaemia Female Male #> No 53 117 #> Yes 52 77 #> #> $table$`anaemia vs smoking` #> smoking #> anaemia No Yes #> No 106 59 #> Yes 95 34 #> #> $table$`anaemia vs death_event` #> death_event #> anaemia No Yes #> No 120 50 #> Yes 83 46 #> #> $table$`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes #> No 112 62 #> Yes 82 43 #> #> $table$`diabetes vs sex` #> sex #> diabetes Female Male #> No 50 124 #> Yes 55 70 #> #> $table$`diabetes vs smoking` #> smoking #> diabetes No Yes #> No 106 64 #> Yes 95 29 #> #> $table$`diabetes vs death_event` #> death_event #> diabetes No Yes #> No 118 56 #> Yes 85 40 #> #> $table$`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male #> No 61 133 #> Yes 44 61 #> #> $table$`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes #> No 128 64 #> Yes 73 29 #> #> $table$`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes #> No 137 57 #> Yes 66 39 #> #> $table$`sex vs smoking` #> smoking #> sex No Yes #> Female 100 4 #> Male 101 89 #> #> $table$`sex vs death_event` #> death_event #> sex No Yes #> Female 71 34 #> Male 132 62 #> #> $table$`smoking vs death_event` #> death_event #> smoking No Yes #> No 135 66 #> Yes 64 29 #> #> #> $relative #> $relative$`anaemia vs diabetes` #> diabetes #> anaemia No Yes #> No 0.3277592 0.2408027 #> Yes 0.2541806 0.1772575 #> #> $relative$`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes #> No 0.3779264 0.1906355 #> Yes 0.2709030 0.1605351 #> #> $relative$`anaemia vs sex` #> sex #> anaemia Female Male #> No 0.1772575 0.3913043 #> Yes 0.1739130 0.2575251 #> #> $relative$`anaemia vs smoking` #> smoking #> anaemia No Yes #> No 0.3605442 0.2006803 #> Yes 0.3231293 0.1156463 #> #> $relative$`anaemia vs death_event` #> death_event #> anaemia No Yes #> No 0.4013378 0.1672241 #> Yes 0.2775920 0.1538462 #> #> $relative$`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes #> No 0.3745819 0.2073579 #> Yes 0.2742475 0.1438127 #> #> $relative$`diabetes vs sex` #> sex #> diabetes Female Male #> No 0.1672241 0.4147157 #> Yes 0.1839465 0.2341137 #> #> $relative$`diabetes vs smoking` #> smoking #> diabetes No Yes #> No 0.36054422 0.21768707 #> Yes 0.32312925 0.09863946 #> #> $relative$`diabetes vs death_event` #> death_event #> diabetes No Yes #> No 0.3946488 0.1872910 #> Yes 0.2842809 0.1337793 #> #> $relative$`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male #> No 0.2040134 0.4448161 #> Yes 0.1471572 0.2040134 #> #> $relative$`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes #> No 0.43537415 0.21768707 #> Yes 0.24829932 0.09863946 #> #> $relative$`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes #> No 0.4581940 0.1906355 #> Yes 0.2207358 0.1304348 #> #> $relative$`sex vs smoking` #> smoking #> sex No Yes #> Female 0.34013605 0.01360544 #> Male 0.34353741 0.30272109 #> #> $relative$`sex vs death_event` #> death_event #> sex No Yes #> Female 0.2374582 0.1137124 #> Male 0.4414716 0.2073579 #> #> $relative$`smoking vs death_event` #> death_event #> smoking No Yes #> No 0.45918367 0.22448980 #> Yes 0.21768707 0.09863946 #> #> #> $chisq #> variable_1 variable_2 statistic p.value df #> 1 anaemia diabetes 1.035093e-02 9.189634e-01 1 #> 2 anaemia hblood_pressure 2.893564e-01 5.906333e-01 1 #> 3 anaemia sex 2.299464e+00 1.294186e-01 1 #> 4 anaemia smoking 2.539885e+00 1.110028e-01 1 #> 5 anaemia death_event 1.042175e+00 3.073161e-01 1 #> 6 diabetes hblood_pressure 9.476710e-03 9.224497e-01 1 #> 7 diabetes sex 6.783853e+00 9.198613e-03 1 #> 8 diabetes smoking 6.098542e+00 1.352935e-02 1 #> 9 diabetes death_event 2.161684e-30 1.000000e+00 1 #> 10 hblood_pressure sex 2.829289e+00 9.255934e-02 1 #> 11 hblood_pressure smoking 5.308209e-01 4.662619e-01 1 #> 12 hblood_pressure death_event 1.543461e+00 2.141034e-01 1 #> 13 sex smoking 5.548177e+01 9.432978e-14 1 #> 14 sex death_event 0.000000e+00 1.000000e+00 1 #> 15 smoking death_event 2.183342e-02 8.825311e-01 1 #># component of table stat$table#> $`anaemia vs diabetes` #> diabetes #> anaemia No Yes #> No 98 72 #> Yes 76 53 #> #> $`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes #> No 113 57 #> Yes 81 48 #> #> $`anaemia vs sex` #> sex #> anaemia Female Male #> No 53 117 #> Yes 52 77 #> #> $`anaemia vs smoking` #> smoking #> anaemia No Yes #> No 106 59 #> Yes 95 34 #> #> $`anaemia vs death_event` #> death_event #> anaemia No Yes #> No 120 50 #> Yes 83 46 #> #> $`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes #> No 112 62 #> Yes 82 43 #> #> $`diabetes vs sex` #> sex #> diabetes Female Male #> No 50 124 #> Yes 55 70 #> #> $`diabetes vs smoking` #> smoking #> diabetes No Yes #> No 106 64 #> Yes 95 29 #> #> $`diabetes vs death_event` #> death_event #> diabetes No Yes #> No 118 56 #> Yes 85 40 #> #> $`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male #> No 61 133 #> Yes 44 61 #> #> $`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes #> No 128 64 #> Yes 73 29 #> #> $`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes #> No 137 57 #> Yes 66 39 #> #> $`sex vs smoking` #> smoking #> sex No Yes #> Female 100 4 #> Male 101 89 #> #> $`sex vs death_event` #> death_event #> sex No Yes #> Female 71 34 #> Male 132 62 #> #> $`smoking vs death_event` #> death_event #> smoking No Yes #> No 135 66 #> Yes 64 29 #># component of chi-square test stat$chisq#> variable_1 variable_2 statistic p.value df #> 1 anaemia diabetes 1.035093e-02 9.189634e-01 1 #> 2 anaemia hblood_pressure 2.893564e-01 5.906333e-01 1 #> 3 anaemia sex 2.299464e+00 1.294186e-01 1 #> 4 anaemia smoking 2.539885e+00 1.110028e-01 1 #> 5 anaemia death_event 1.042175e+00 3.073161e-01 1 #> 6 diabetes hblood_pressure 9.476710e-03 9.224497e-01 1 #> 7 diabetes sex 6.783853e+00 9.198613e-03 1 #> 8 diabetes smoking 6.098542e+00 1.352935e-02 1 #> 9 diabetes death_event 2.161684e-30 1.000000e+00 1 #> 10 hblood_pressure sex 2.829289e+00 9.255934e-02 1 #> 11 hblood_pressure smoking 5.308209e-01 4.662619e-01 1 #> 12 hblood_pressure death_event 1.543461e+00 2.141034e-01 1 #> 13 sex smoking 5.548177e+01 9.432978e-14 1 #> 14 sex death_event 0.000000e+00 1.000000e+00 1 #> 15 smoking death_event 2.183342e-02 8.825311e-01 1#> ── Chi-squared contingency table tests ─────────── Number of table is 15 ── #> variable_1 variable_2 statistic p.value df #> 1 anaemia diabetes 1.035093e-02 9.189634e-01 1 #> 2 anaemia hblood_pressure 2.893564e-01 5.906333e-01 1 #> 3 anaemia sex 2.299464e+00 1.294186e-01 1 #> 4 anaemia smoking 2.539885e+00 1.110028e-01 1 #> 5 anaemia death_event 1.042175e+00 3.073161e-01 1 #> 6 diabetes hblood_pressure 9.476710e-03 9.224497e-01 1 #> 7 diabetes sex 6.783853e+00 9.198613e-03 1 #> 8 diabetes smoking 6.098542e+00 1.352935e-02 1 #> 9 diabetes death_event 2.161684e-30 1.000000e+00 1 #> 10 hblood_pressure sex 2.829289e+00 9.255934e-02 1 #> 11 hblood_pressure smoking 5.308209e-01 4.662619e-01 1 #> 12 hblood_pressure death_event 1.543461e+00 2.141034e-01 1 #> 13 sex smoking 5.548177e+01 9.432978e-14 1 #> 14 sex death_event 0.000000e+00 1.000000e+00 1 #> 15 smoking death_event 2.183342e-02 8.825311e-01 1#> ── Chi-squared contingency table tests ──────────── Number of table is 2 ── #> variable_1 variable_2 statistic p.value df #> 1 anaemia diabetes 0.01035093 0.9189634 1 #> 2 anaemia sex 2.29946450 0.1294186 1#> ── Relative contingency tables ─────────────────── Number of table is 15 ── #> $`anaemia vs diabetes` #> diabetes #> anaemia No Yes #> No 0.3277592 0.2408027 #> Yes 0.2541806 0.1772575 #> #> $`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes #> No 0.3779264 0.1906355 #> Yes 0.2709030 0.1605351 #> #> $`anaemia vs sex` #> sex #> anaemia Female Male #> No 0.1772575 0.3913043 #> Yes 0.1739130 0.2575251 #> #> $`anaemia vs smoking` #> smoking #> anaemia No Yes #> No 0.3605442 0.2006803 #> Yes 0.3231293 0.1156463 #> #> $`anaemia vs death_event` #> death_event #> anaemia No Yes #> No 0.4013378 0.1672241 #> Yes 0.2775920 0.1538462 #> #> $`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes #> No 0.3745819 0.2073579 #> Yes 0.2742475 0.1438127 #> #> $`diabetes vs sex` #> sex #> diabetes Female Male #> No 0.1672241 0.4147157 #> Yes 0.1839465 0.2341137 #> #> $`diabetes vs smoking` #> smoking #> diabetes No Yes #> No 0.36054422 0.21768707 #> Yes 0.32312925 0.09863946 #> #> $`diabetes vs death_event` #> death_event #> diabetes No Yes #> No 0.3946488 0.1872910 #> Yes 0.2842809 0.1337793 #> #> $`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male #> No 0.2040134 0.4448161 #> Yes 0.1471572 0.2040134 #> #> $`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes #> No 0.43537415 0.21768707 #> Yes 0.24829932 0.09863946 #> #> $`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes #> No 0.4581940 0.1906355 #> Yes 0.2207358 0.1304348 #> #> $`sex vs smoking` #> smoking #> sex No Yes #> Female 0.34013605 0.01360544 #> Male 0.34353741 0.30272109 #> #> $`sex vs death_event` #> death_event #> sex No Yes #> Female 0.2374582 0.1137124 #> Male 0.4414716 0.2073579 #> #> $`smoking vs death_event` #> death_event #> smoking No Yes #> No 0.45918367 0.22448980 #> Yes 0.21768707 0.09863946 #>#> ── Contingency tables ──────────────────────────── Number of table is 15 ── #> $`anaemia vs diabetes` #> diabetes #> anaemia No Yes #> No 98 72 #> Yes 76 53 #> #> $`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes #> No 113 57 #> Yes 81 48 #> #> $`anaemia vs sex` #> sex #> anaemia Female Male #> No 53 117 #> Yes 52 77 #> #> $`anaemia vs smoking` #> smoking #> anaemia No Yes #> No 106 59 #> Yes 95 34 #> #> $`anaemia vs death_event` #> death_event #> anaemia No Yes #> No 120 50 #> Yes 83 46 #> #> $`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes #> No 112 62 #> Yes 82 43 #> #> $`diabetes vs sex` #> sex #> diabetes Female Male #> No 50 124 #> Yes 55 70 #> #> $`diabetes vs smoking` #> smoking #> diabetes No Yes #> No 106 64 #> Yes 95 29 #> #> $`diabetes vs death_event` #> death_event #> diabetes No Yes #> No 118 56 #> Yes 85 40 #> #> $`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male #> No 61 133 #> Yes 44 61 #> #> $`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes #> No 128 64 #> Yes 73 29 #> #> $`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes #> No 137 57 #> Yes 66 39 #> #> $`sex vs smoking` #> smoking #> sex No Yes #> Female 100 4 #> Male 101 89 #> #> $`sex vs death_event` #> death_event #> sex No Yes #> Female 71 34 #> Male 132 62 #> #> $`smoking vs death_event` #> death_event #> smoking No Yes #> No 135 66 #> Yes 64 29 #>#> ── Contingency tables ──────────────────────────── Number of table is 15 ── #> $`anaemia vs diabetes` #> diabetes #> anaemia No Yes <Total> #> No 98 72 170 #> Yes 76 53 129 #> <Total> 174 125 299 #> #> $`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes <Total> #> No 113 57 170 #> Yes 81 48 129 #> <Total> 194 105 299 #> #> $`anaemia vs sex` #> sex #> anaemia Female Male <Total> #> No 53 117 170 #> Yes 52 77 129 #> <Total> 105 194 299 #> #> $`anaemia vs smoking` #> smoking #> anaemia No Yes <Total> #> No 106 59 165 #> Yes 95 34 129 #> <Total> 201 93 294 #> #> $`anaemia vs death_event` #> death_event #> anaemia No Yes <Total> #> No 120 50 170 #> Yes 83 46 129 #> <Total> 203 96 299 #> #> $`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes <Total> #> No 112 62 174 #> Yes 82 43 125 #> <Total> 194 105 299 #> #> $`diabetes vs sex` #> sex #> diabetes Female Male <Total> #> No 50 124 174 #> Yes 55 70 125 #> <Total> 105 194 299 #> #> $`diabetes vs smoking` #> smoking #> diabetes No Yes <Total> #> No 106 64 170 #> Yes 95 29 124 #> <Total> 201 93 294 #> #> $`diabetes vs death_event` #> death_event #> diabetes No Yes <Total> #> No 118 56 174 #> Yes 85 40 125 #> <Total> 203 96 299 #> #> $`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male <Total> #> No 61 133 194 #> Yes 44 61 105 #> <Total> 105 194 299 #> #> $`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes <Total> #> No 128 64 192 #> Yes 73 29 102 #> <Total> 201 93 294 #> #> $`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes <Total> #> No 137 57 194 #> Yes 66 39 105 #> <Total> 203 96 299 #> #> $`sex vs smoking` #> smoking #> sex No Yes <Total> #> Female 100 4 104 #> Male 101 89 190 #> <Total> 201 93 294 #> #> $`sex vs death_event` #> death_event #> sex No Yes <Total> #> Female 71 34 105 #> Male 132 62 194 #> <Total> 203 96 299 #> #> $`smoking vs death_event` #> death_event #> smoking No Yes <Total> #> No 135 66 201 #> Yes 64 29 93 #> <Total> 199 95 294 #>margin#> $`anaemia vs diabetes` #> diabetes #> anaemia No Yes <Total> #> No 98 72 170 #> Yes 76 53 129 #> <Total> 174 125 299 #> #> $`anaemia vs hblood_pressure` #> hblood_pressure #> anaemia No Yes <Total> #> No 113 57 170 #> Yes 81 48 129 #> <Total> 194 105 299 #> #> $`anaemia vs sex` #> sex #> anaemia Female Male <Total> #> No 53 117 170 #> Yes 52 77 129 #> <Total> 105 194 299 #> #> $`anaemia vs smoking` #> smoking #> anaemia No Yes <Total> #> No 106 59 165 #> Yes 95 34 129 #> <Total> 201 93 294 #> #> $`anaemia vs death_event` #> death_event #> anaemia No Yes <Total> #> No 120 50 170 #> Yes 83 46 129 #> <Total> 203 96 299 #> #> $`diabetes vs hblood_pressure` #> hblood_pressure #> diabetes No Yes <Total> #> No 112 62 174 #> Yes 82 43 125 #> <Total> 194 105 299 #> #> $`diabetes vs sex` #> sex #> diabetes Female Male <Total> #> No 50 124 174 #> Yes 55 70 125 #> <Total> 105 194 299 #> #> $`diabetes vs smoking` #> smoking #> diabetes No Yes <Total> #> No 106 64 170 #> Yes 95 29 124 #> <Total> 201 93 294 #> #> $`diabetes vs death_event` #> death_event #> diabetes No Yes <Total> #> No 118 56 174 #> Yes 85 40 125 #> <Total> 203 96 299 #> #> $`hblood_pressure vs sex` #> sex #> hblood_pressure Female Male <Total> #> No 61 133 194 #> Yes 44 61 105 #> <Total> 105 194 299 #> #> $`hblood_pressure vs smoking` #> smoking #> hblood_pressure No Yes <Total> #> No 128 64 192 #> Yes 73 29 102 #> <Total> 201 93 294 #> #> $`hblood_pressure vs death_event` #> death_event #> hblood_pressure No Yes <Total> #> No 137 57 194 #> Yes 66 39 105 #> <Total> 203 96 299 #> #> $`sex vs smoking` #> smoking #> sex No Yes <Total> #> Female 100 4 104 #> Male 101 89 190 #> <Total> 201 93 294 #> #> $`sex vs death_event` #> death_event #> sex No Yes <Total> #> Female 71 34 105 #> Male 132 62 194 #> <Total> 203 96 299 #> #> $`smoking vs death_event` #> death_event #> smoking No Yes <Total> #> No 135 66 201 #> Yes 64 29 93 #> <Total> 199 95 294 #>#> ── Chi-squared contingency table tests ──────────── Number of table is 1 ── #> variable_1 variable_2 statistic p.value df #> 1 smoking death_event 0.02183342 0.8825311 1#> variable_1 variable_2 statistic p.value df #> 1 anaemia diabetes 1.035093e-02 9.189634e-01 1 #> 2 anaemia hblood_pressure 2.893564e-01 5.906333e-01 1 #> 3 anaemia sex 2.299464e+00 1.294186e-01 1 #> 4 anaemia smoking 2.539885e+00 1.110028e-01 1 #> 5 anaemia death_event 1.042175e+00 3.073161e-01 1 #> 6 diabetes hblood_pressure 9.476710e-03 9.224497e-01 1 #> 7 diabetes sex 6.783853e+00 9.198613e-03 1 #> 8 diabetes smoking 6.098542e+00 1.352935e-02 1 #> 9 diabetes death_event 2.161684e-30 1.000000e+00 1 #> 10 hblood_pressure sex 2.829289e+00 9.255934e-02 1 #> 11 hblood_pressure smoking 5.308209e-01 4.662619e-01 1 #> 12 hblood_pressure death_event 1.543461e+00 2.141034e-01 1 #> 13 sex smoking 5.548177e+01 9.432978e-14 1 #> 14 sex death_event 0.000000e+00 1.000000e+00 1 #> 15 smoking death_event 2.183342e-02 8.825311e-01 1#' # Using pipes & dplyr ------------------------- # If you want to use dplyr, set verbose to FALSE summary(all_var, "chisq", verbose = FALSE) %>% filter(p.value < 0.26)#> variable_1 variable_2 statistic p.value df #> 1 anaemia sex 2.299464 1.294186e-01 1 #> 2 anaemia smoking 2.539885 1.110028e-01 1 #> 3 diabetes sex 6.783853 9.198613e-03 1 #> 4 diabetes smoking 6.098542 1.352935e-02 1 #> 5 hblood_pressure sex 2.829289 9.255934e-02 1 #> 6 hblood_pressure death_event 1.543461 2.141034e-01 1 #> 7 sex smoking 55.481770 9.432978e-14 1# Extract component from list by index summary(all_var, "table", na.rm = TRUE, verbose = FALSE) %>% "[["(1)#> diabetes #> anaemia No Yes #> No 98 72 #> Yes 76 53# Extract component from list by name summary(all_var, "table", na.rm = TRUE, verbose = FALSE) %>% "[["("smoking vs death_event")#> death_event #> smoking No Yes #> No 135 66 #> Yes 64 29# }