library(crosstable)
library(tidyverse)
crosstable(base_opinion, cols= c(SEXO, EDAD_REC, NIV_EDUC_REC), by= ZONA, total = "both", label = TRUE) %>% as_flextable()label | variable | ZONA | Total | |||
Resto de la provincia de Buenos Aires | Zona Norte conurbano | Zona Oeste conurbano | Zona Sur conurbano | |||
SEXO | Hombre | 5183 (58.19%) | 1529 (17.17%) | 1590 (17.85%) | 605 (6.79%) | 8907 (45.17%) |
Mujer | 6174 (57.10%) | 1872 (17.31%) | 2231 (20.63%) | 535 (4.95%) | 10812 (54.83%) | |
Total | 11357 (57.59%) | 3401 (17.25%) | 3821 (19.38%) | 1140 (5.78%) | 19719 (100.00%) | |
EDAD_REC | Entre 16 y 17 | 11 (36.67%) | 12 (40.00%) | 4 (13.33%) | 3 (10.00%) | 30 (0.15%) |
Entre 18 y 24 | 249 (41.50%) | 132 (22.00%) | 168 (28.00%) | 51 (8.50%) | 600 (3.04%) | |
Entre 25 y 34 | 634 (45.35%) | 282 (20.17%) | 399 (28.54%) | 83 (5.94%) | 1398 (7.09%) | |
Entre 35 y 49 | 2413 (54.30%) | 822 (18.50%) | 976 (21.96%) | 233 (5.24%) | 4444 (22.54%) | |
Entre 51 y 65 | 5547 (60.19%) | 1537 (16.68%) | 1595 (17.31%) | 537 (5.83%) | 9216 (46.74%) | |
Mas de 65 | 2503 (62.09%) | 616 (15.28%) | 679 (16.84%) | 233 (5.78%) | 4031 (20.44%) | |
Total | 11357 (57.59%) | 3401 (17.25%) | 3821 (19.38%) | 1140 (5.78%) | 19719 (100.00%) | |
NIV_EDUC_REC | PRIMARIO | 942 (57.69%) | 310 (18.98%) | 285 (17.45%) | 96 (5.88%) | 1633 (8.28%) |
SECUNDARIO | 4567 (56.24%) | 1410 (17.36%) | 1701 (20.95%) | 442 (5.44%) | 8120 (41.18%) | |
TERCIARIO | 5848 (58.68%) | 1681 (16.87%) | 1835 (18.41%) | 602 (6.04%) | 9966 (50.54%) | |
Total | 11357 (57.59%) | 3401 (17.25%) | 3821 (19.38%) | 1140 (5.78%) | 19719 (100.00%) | |
library(crosstable)
library(tidyverse)
obj<- crosstable(base_opinion, cols= c(SEXO, EDAD_REC, NIV_EDUC_REC), by= c(ZONA), total = "both", label = TRUE) %>% as_flextable()