Projeto Como a orientação escolar sobre saúde sexual e reprodutiva influência na taxa de gravidez

1 Projeto Análises Iniciais

1.1 Como a orientação escolar sobre saúde sexual e reprodutiva influência na taxa de gravidez em meninas do ensino fundamental anos finais?

library(gtsummary)

dados <- dados |>
  filter((B01001A == 2) & (B01021A == 3 | B01021A == 4)) #meninas do 8 e 9 ano
library(rmarkdown)
library(kableExtra)

kable(head(dados, 10)) %>%
  kable_styling(full_width = FALSE, bootstrap_options = c("striped", "hover", "condensed", "responsive"))

REGIAO	UF	MUNICIPIO_CAP	TIPO_MUNIC	SITUACAO	DEP_ADMIN	ESFERA	ESCOLA	TURMA	ALUNO	ANO_TURMA	B00004	B01001A	B01003	B01004	B01005	B01002	B01021A	B01026A1	B01026A2	B01006	B01007	B01010A	B01014	B01015B	B01016	B01017	B01018A	B01019A	B01020A	B01008B	B02019A	B02017A	B02018B	B02028	B02029	B02030	B02031	B02032	B02033	B02034	B02035	B02036	B02037	B02038	B02039	B02040	B02001	B02004B	B02010A	B02011	B02013	B02023A	B02021A	B02020B	B02041	B02042	B03001A1	B03002A1	B03001A2	B03002A2	B03003A	B03005B	B03006B	B03007A	B03009B	B03010B	B04001	B04002A	B04003	B04009A	B04010	B04012	B04013	B04014	B04015	B04011A01	B04011A02	B04011A03	B04011A04	B04011A05	B04011A06	B04006B	B04005A	B04016	B05002A	B05003A	B05007	B05009	B05004A	B05005A	B05006B	B05011	B05010A	B06001	B06002A	B06003B	B06004A	B06005A	B06006A	B07001	B07002	B07004	B07006	B07007A	B07008	B07011	B07012	B07013	B07009	B12003	B12004	B12005	B12006	B12007	B12008	B08001	B08002	B08011A	B08006A	B08014	B08007	B08012A	B08015	B08016	B08013A	B08008A	B08009A	B08010A	B10004A	B10005A	B10006A	B10001B	B10002	B10003	B09006A1	B09006A2	B09007A	B09008	B09009	B09019	B09001	B09002	B09011A	B09004	B09005	B09012A1	B09012A2	B09012A3	B09013B	B09014B	B09003A	B09010A1	B09010A201	B09010A202	B09010A203	B09010A204	B09010A205	B09010A206	B09010A207	B09016A1	B09017A101	B09017A102	B09017A103	B09017A104	B09017A105	B09017A106	B09016A2	B09017A201	B09017A202	B09017A203	B09017A204	B09017A205	B09017A206	B09018	B13005	B13006	B13001	B13002A	B13003A	B13004B	B13007A	B13009A	B13012	B11007	B11001	B11002	B11003	B11004A	B11005	B16001A01	B16001A02	B16001A03	B16001A04	B16001A05	B16001A06	B16001A07	B16001A08	TEMPODESLOC	TEMPOEDFIS	TEMPOEXTRA	TEMPOTOTAL	E01P29	E01P30A01	E01P30A02	E01P30A03	E01P03A01	E01P03A02	E01P03A03	E01P03A04	E01P01	E01P05B	E01P33A	E01P09A	E01P10B	E01P7301	E01P7302	E01P7303	E01P7304	E01P7305	E01P7306	E01P34	E01P35	E01P74	E01P7501	E01P7502	E01P7503	E01P7504	E01P7505	E01P7506	E01P7507	E01P7508	E01P76	E01P22A	E01P18A	E01P19A	E01P38A	E01P39A	E01P77	E01P11A	E01P12B01	E01P12B02	E01P12B03	E01P12B04	E01P12B05	E01P12B06	E01P12B07	E01P12B08	E01P12B09	E01P12B10	E01P12B11	E01P13A	E01P14B01	E01P14B02	E01P14B03	E01P14B04	E01P14B05	E01P14B06	E01P14B07	E01P14B08	E01P14B09	E01P14B10	E01P14B11	E01P78	E01P49	E01P49A1	E01P49A2	E01P51	E01P55A	E01P56	E01P57	E01P58A1	E01P58A2	E01P79	E01P80	E01P81	E01P82	E01P83	E01P84	E01P59A1	E01P59A2	E01P60	E01P61	E01P8501	E01P8502	E01P8503	E01P8504	E01P8505	E01P8506	E01P8507	E01P8508	E01P8509	E01P8510	E01P8511	E01P8512	E01P64A	E01P65A	E01P66A	E01P26A	E01P27A	ESTRATO	IND_EXPANSAO	PESO_ALUNO_FREQ	PESO_INICIAL	POSEST	TOTAIS_POSEST
1	11	0	2	1	2	4	23	1	9	2	1	2	2	3	2006	4	3	3	3	1	2	5	1	1	1	1	1	4	1	7	6	1	1	2	2	2	2	2	1	1	1	1	2	2	2	2	8	4	8	1	3	1	1	5	4	6	4	2	1	-1	6	1	6	3	10	9	2	-1	-1	-1	1	-1	2	2	2	-1	-1	-1	-1	-1	-1	1	1	2	1	12	2	3	3	3	8	2	1	2	-1	-1	-1	-1	2	2	5	5	5	1	-1	3	1	1	2	4	4	2	1	5	3	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	2	1	2	5	5	5	5	3	3	2	2	6	5	4	3	1	1	1	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	1	1	1	7	1	-1	-1	2	3	2	3	2	2	2	2	0	0	0	0	1	0	0	0	45	0	125	170	1	1	1	1	0	1	1	0	3	1	3	2	1	0	0	1	0	0	0	2	-1	1	1	0	0	0	0	0	0	0	1	1	3	2	1	1	1	1	0	0	1	1	0	1	0	0	0	0	0	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	2	-1	-1	1	1	1	1	4	4	1	1	1	1	1	1	2	-1	2	-1	0	0	0	1	0	0	0	0	0	0	0	0	1	1	2	4	2	1101	1	3.838060	3.000000	1100000PRI1	1767
1	11	0	2	1	2	4	17	1	3	2	1	2	2	2	2006	1	3	3	3	1	1	4	1	1	1	1	2	3	2	7	1	1	5	1	2	2	1	2	2	2	1	1	1	2	1	1	8	4	8	5	5	3	2	-1	2	6	1	-1	4	1	2	1	2	3	3	2	2	-1	-1	-1	1	-1	2	2	2	-1	-1	-1	-1	-1	-1	1	1	2	2	-1	-1	-1	-1	-1	-1	1	2	2	-1	-1	-1	-1	2	1	3	3	4	2	7	1	1	2	2	3	5	3	1	2	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	2	2	3	5	4	4	2	3	3	2	1	1	1	3	1	1	2	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	1	4	1	2	2	2	7	1	-1	2	3	1	2	2	2	1	0	0	1	1	1	0	0	15	0	25	40	1	1	0	0	1	1	1	0	2	1	3	1	1	1	1	0	1	0	0	2	-1	1	1	0	0	1	0	0	0	0	1	3	3	1	1	1	3	1	0	0	1	0	0	1	0	0	0	0	0	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	2	2	-1	-1	1	1	1	1	4	4	1	1	1	1	1	1	2	-1	1	-1	1	1	1	1	1	1	1	1	0	0	0	0	1	2	2	4	2	1101	1	2.771932	2.166667	1100000PRI1	1767
1	11	0	2	1	2	4	1	1	3	2	1	2	2	12	2005	1	3	3	3	1	1	3	1	1	1	1	1	3	1	7	1	1	1	1	2	2	1	2	1	2	1	2	1	1	1	2	1	8	8	4	8	4	2	-1	1	4	1	-1	1	-1	2	3	2	2	7	9	2	-1	-1	-1	1	-1	1	2	2	1	0	0	0	0	0	1	1	2	1	13	2	1	1	-1	-1	1	2	2	-1	-1	-1	-1	2	1	5	5	4	1	-1	2	1	2	2	4	3	2	1	2	3	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	1	1	4	4	4	5	3	4	2	2	6	3	1	3	1	1	2	2	2	2	-1	-1	-1	-1	1	2	0	0	0	0	0	1	1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	3	3	1	2	4	1	12	2	7	1	3	2	2	2	2	0	0	0	0	0	0	1	0	0	15	15	30	1	1	1	0	1	1	1	0	3	1	1	2	1	0	0	1	1	0	0	2	-1	1	1	0	0	1	0	0	0	0	1	4	3	3	2	1	1	1	0	0	1	0	0	1	0	0	0	0	0	1	1	0	0	0	0	1	0	0	1	0	0	2	1	2	1	1	1	3	2	4	3	3	1	4	1	1	1	2	-1	2	-1	1	1	1	1	1	1	1	1	1	1	1	0	1	2	2	4	2	1101	1	4.289596	3.352941	1100000PRI1	1767
1	11	0	2	1	2	4	34	1	14	2	1	2	1	11	2006	3	3	3	3	1	1	4	1	1	1	1	1	3	2	6	4	3	3	1	1	1	2	2	2	2	1	1	1	2	2	2	5	8	4	5	4	3	2	-1	2	6	6	1	6	1	2	7	3	8	2	3	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	5	4	5	1	-1	1	1	2	2	4	3	1	1	2	1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	4	5	4	4	2	4	4	4	6	1	1	1	1	1	2	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	2	1	10	2	1	5	3	-1	1	3	4	2	2	2	1	0	0	1	1	1	0	0	50	55	160	265	1	1	1	0	1	1	1	0	2	1	2	2	3	0	1	1	1	0	0	2	-1	1	1	0	0	0	0	1	0	1	1	1	3	1	1	1	1	1	0	0	1	1	0	1	0	0	1	0	0	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	2	2	-1	-1	1	1	1	1	4	4	1	1	1	1	1	1	2	-1	1	-1	0	1	0	1	1	0	0	0	0	1	1	0	1	2	1	2	2	1101	1	2.934987	2.294118	1100000PRI1	1767
1	11	0	2	2	2	4	8	1	5	2	1	2	2	5	2006	9	3	5	3	1	2	4	1	1	1	2	1	3	2	2	5	5	1	2	2	2	1	2	1	1	1	1	2	1	2	1	6	8	8	8	1	1	2	-1	5	6	1	-1	1	-1	2	1	1	-1	10	9	2	-1	-1	-1	1	-1	1	2	2	1	0	0	0	0	0	1	5	1	1	11	2	2	1	-1	-1	1	1	2	-1	-1	-1	-1	1	1	2	1	2	1	-1	2	1	1	2	4	1	5	5	5	5	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	2	1	5	5	5	4	1	1	2	3	6	3	1	2	1	1	2	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	3	1	2	-1	-1	-1	-1	3	-1	5	3	4	2	2	2	0	0	0	1	0	0	0	0	0	0	0	0	1	1	1	1	0	1	1	0	3	1	5	1	1	1	1	1	1	1	0	1	1	1	1	1	1	1	1	0	0	1	1	1	1	1	2	1	2	1	0	1	1	1	0	1	0	0	1	1	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	1	1	1	1	1	1	1	4	4	2	1	1	1	1	1	2	-1	1	-1	1	1	1	1	1	1	1	1	1	1	1	0	2	1	1	4	2	1101	1	4.535889	3.545454	1100000PRI1	1767
1	11	0	2	1	2	4	16	1	9	2	1	2	2	7	2005	2	3	3	3	1	1	3	1	2	1	1	2	2	2	2	1	1	5	2	1	2	2	2	2	2	1	2	1	2	2	1	8	2	4	1	3	4	2	-1	2	4	1	-1	1	-1	3	7	3	8	1	4	2	-1	-1	-1	1	-1	1	2	2	0	1	0	0	0	0	1	1	1	1	13	1	1	1	-1	-1	1	2	2	-1	-1	-1	-1	2	1	5	3	5	1	-1	2	1	2	2	4	5	3	3	3	2	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	1	1	5	5	5	4	2	3	6	6	6	1	1	1	1	1	2	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	1	3	1	7	2	1	12	1	-1	4	3	1	2	2	2	0	0	0	0	1	0	0	0	0	110	160	270	1	1	1	0	1	1	1	0	3	1	3	1	1	-1	-1	-1	-1	-1	-1	2	-1	1	1	0	0	0	0	1	0	0	1	2	3	1	1	1	1	1	0	0	1	1	0	1	0	0	0	0	0	1	0	0	0	0	1	0	0	0	0	0	0	2	2	-1	-1	1	1	1	1	4	2	1	1	1	1	1	1	2	-1	1	-1	1	1	0	1	1	1	1	1	0	0	0	0	1	1	1	4	2	1101	1	3.997979	3.125000	1100000PRI1	1767
1	11	0	2	2	2	4	8	1	16	2	1	2	2	1	2006	3	3	1	3	2	2	3	1	1	1	1	1	4	2	8	5	1	5	2	1	2	2	2	1	2	2	2	1	2	2	1	8	6	4	2	3	2	2	-1	2	5	6	1	6	1	2	5	3	6	2	3	2	-1	-1	-1	1	-1	2	2	2	-1	-1	-1	-1	-1	-1	1	1	2	2	-1	-1	-1	-1	-1	-1	2	1	2	-1	-1	-1	-1	2	1	5	4	4	2	7	2	1	2	2	4	3	3	2	4	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	2	2	3	5	4	4	3	4	5	5	5	3	2	2	1	1	2	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	2	3	1	2	2	1	12	3	-1	4	4	2	2	2	2	0	0	0	1	1	1	0	0	50	35	110	195	1	1	1	1	0	1	1	0	3	1	5	1	1	1	1	1	1	1	0	1	1	1	1	1	1	1	1	0	0	1	1	1	1	1	2	1	2	1	0	1	1	1	0	1	0	0	1	1	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	1	1	1	1	1	1	1	4	4	2	1	1	1	1	1	2	-1	1	-1	1	1	1	1	1	1	1	1	1	1	1	0	2	1	1	4	2	1101	1	4.535889	3.545454	1100000PRI1	1767
1	11	0	2	1	2	4	14	1	13	2	1	2	2	8	2005	1	3	3	3	1	1	3	1	1	1	1	1	3	2	7	6	1	1	2	2	2	2	2	2	1	2	2	2	2	2	2	1	1	8	3	1	2	2	-1	4	6	4	1	4	1	2	6	5	8	2	1	2	-1	-1	-1	1	-1	2	1	2	1	0	0	0	0	0	1	1	2	1	13	1	1	1	-1	-1	4	2	2	-1	-1	-1	-1	2	1	2	1	5	1	-1	1	1	2	2	4	1	1	1	5	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	2	2	2	3	5	2	3	1	4	1	3	6	1	1	1	1	1	2	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	1	2	1	10	2	1	5	1	-1	1	3	1	2	2	2	1	0	0	1	1	1	0	0	30	45	320	395	2	1	1	0	1	1	1	0	2	1	3	1	1	-1	-1	-1	-1	-1	-1	1	1	1	1	0	0	1	1	0	0	0	1	1	3	1	1	1	1	1	0	0	1	1	0	1	0	0	0	1	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	2	2	-1	-1	2	1	1	1	4	2	1	1	1	1	1	1	2	-1	1	-1	1	1	0	1	1	1	1	1	1	1	0	0	2	2	2	4	2	1101	1	2.771932	2.166667	1100000PRI1	1767
1	11	0	2	1	2	4	24	1	21	2	1	2	2	2	2006	1	3	5	2	1	1	4	1	1	1	1	1	4	2	7	5	1	4	1	2	2	2	1	2	2	1	1	1	2	2	2	8	1	8	6	4	1	2	-1	1	6	1	-1	1	-1	1	-1	3	8	2	2	2	-1	-1	-1	1	-1	2	2	2	-1	-1	-1	-1	-1	-1	1	1	2	2	-1	-1	-1	-1	-1	-1	1	2	2	-1	-1	-1	-1	2	1	5	5	2	1	-1	1	1	2	2	2	2	3	1	2	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	2	2	2	1	4	4	4	2	4	5	1	6	1	1	1	1	1	2	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	2	2	1	7	2	1	13	3	-1	1	3	4	2	2	2	0	0	0	0	1	0	0	0	0	0	160	160	1	1	1	0	1	1	0	0	2	1	2	2	1	1	1	1	1	1	0	2	-1	1	1	1	0	1	1	1	1	0	1	1	3	1	1	1	2	1	0	0	1	0	0	1	0	0	0	0	1	1	0	0	1	0	0	1	0	0	0	0	1	2	1	2	1	1	1	1	1	4	4	1	1	1	1	1	1	2	-1	1	-1	1	1	1	1	1	1	1	1	1	1	1	0	1	1	2	4	2	1101	1	4.386354	3.428571	1100000PRI1	1767
1	11	0	2	2	2	4	8	1	4	2	1	2	2	3	2006	4	3	1	3	1	1	4	2	1	1	1	2	2	2	5	1	1	4	2	2	2	2	2	2	2	2	1	1	1	2	2	8	8	3	8	1	1	2	-1	4	6	1	-1	6	2	2	1	6	2	4	2	2	-1	-1	-1	1	-1	2	2	2	-1	-1	-1	-1	-1	-1	1	1	2	1	13	1	1	1	-1	-1	2	2	2	-1	-1	-1	-1	2	1	5	4	5	1	-1	1	1	2	2	4	4	2	1	3	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	1	2	5	5	5	5	2	1	6	5	6	1	1	1	1	1	2	2	2	2	-1	-1	-1	-1	1	1	-1	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	2	-1	-1	-1	-1	-1	-1	-1	2	1	2	-1	-1	-1	-1	1	-1	2	3	2	2	2	2	0	0	0	1	1	0	0	0	75	0	75	150	1	1	1	1	0	1	1	0	3	1	5	1	1	1	1	1	1	1	0	1	1	1	1	1	1	1	1	0	0	1	1	1	1	1	2	1	2	1	0	1	1	1	0	1	0	0	1	1	1	2	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	-1	1	1	1	1	1	1	1	1	4	4	2	1	1	1	1	1	2	-1	1	-1	1	1	1	1	1	1	1	1	1	1	1	0	2	1	1	4	2	1101	1	4.535889	3.545454	1100000PRI1	1767

# Exclui os valores indesejados de B08013A
dados <- dados %>% filter(B08013A != c(-2, -1, 9))
dados <- dados |> filter(B08010A != c(-2, -1, 9))

# Binariza a variável B08013A
dados$B08013A <- ifelse(dados$B08013A == 1, 1, 0)

1.2 Testando Variáveis

modelo <- glm(B08013A ~ B08008A + B08010A + B08014 
              + B01003 + B01002 + B01008B + B04001 + B05002A 
              + B06001 + B08007 
              + B08009A + B09003A , data = dados , family = binomial)
summary(modelo)

## 
## Call:
## glm(formula = B08013A ~ B08008A + B08010A + B08014 + B01003 + 
##     B01002 + B01008B + B04001 + B05002A + B06001 + B08007 + B08009A + 
##     B09003A, family = binomial, data = dados)
## 
## Coefficients: (1 not defined because of singularities)
##                                                      Estimate Std. Error
## (Intercept)                                        -3.201e+00  7.620e-01
## B08008ASem resposta                                -1.555e+01  4.797e+03
## B08008ASim                                         -1.519e-01  1.612e-01
## B08010ASem resposta                                -1.632e+01  4.977e+03
## B08010ASim                                          5.781e-01  1.679e-01
## B08014Com outra pessoa                              5.927e-01  6.581e-01
## B08014Com parceiro                                 -5.104e-01  5.846e-01
## B08014Com responsável                               1.625e-01  6.884e-01
## B08014Comprei                                       9.283e-02  5.826e-01
## B08014Na escola                                     2.648e+00  9.923e-01
## B08014No serviço de saúde                           3.549e-01  5.915e-01
## B08014Sem resposta                                  6.421e-01  5.651e-01
## B0100316 ou 17 anos                                 9.559e-01  1.476e-01
## B0100318 anos ou mais                               1.496e+00  2.733e-01
## B01003Menos de 13 anos                              3.065e+01  1.210e+04
## B01003sem resposta                                  1.222e+00  5.826e-01
## B01002Branca                                       -4.251e-02  3.338e-01
## B01002Indígena                                      7.871e-01  4.017e-01
## B01002Parda                                         3.027e-01  3.201e-01
## B01002Preta                                         2.658e-01  3.436e-01
## B01002Sem resposta                                  6.312e-01  4.775e-01
## B01008BNão terminou o Ensino Fundamental (1º grau) -3.096e-01  2.414e-01
## B01008BNão terminou o Ensino Médio (2º grau)       -2.055e-01  3.020e-01
## B01008BNão terminou o Ensino Superior (faculdade)   7.444e-02  3.005e-01
## B01008BSem reposta                                  4.314e-01  5.876e+04
## B01008BSem resposta                                -2.838e-01  2.527e-01
## B01008BTerminou o Ensino Fundamental (1º grau)     -3.671e-02  3.040e-01
## B01008BTerminou o Ensino Médio (2º grau)           -4.329e-01  2.645e-01
## B01008BTerminou o Ensino Superior (faculdade)      -8.103e-01  2.817e-01
## B04001Sem reposta                                  -9.592e-01  5.560e+04
## B04001Sem resposta                                  5.098e-02  9.788e+03
## B04001Sim                                           2.570e-01  1.473e-01
## B05002ASem reposta                                  3.193e-01  3.621e+04
## B05002ASem resposta                                 1.087e+00  1.575e+00
## B05002ASim                                         -4.082e-01  1.965e-01
## B06001Sem reposta                                          NA         NA
## B06001Sem resposta                                  1.165e+00  1.148e+00
## B06001Sim                                           4.078e-01  1.444e-01
## B08007Não sei                                      -6.509e-01  2.619e-01
## B08007Sem reposta                                   1.254e+01  2.431e+04
## B08007Sem resposta                                 -2.011e+01  3.783e+02
## B08007Sim                                          -1.784e-03  1.289e-01
## B08009A                                             4.092e-01  1.367e-01
## B09003A2 a 5 vezes                                 -2.299e-01  2.242e-01
## B09003A6 ou mais vezes                             -1.069e-01  2.459e-01
## B09003ANenhuma vez nos últimos 12 meses            -4.064e-01  1.650e-01
## B09003ASem reposta                                 -1.672e-01  1.124e+00
## B09003ASem resposta                                 5.035e-01  6.863e-01
##                                                    z value Pr(>|z|)    
## (Intercept)                                         -4.200 2.67e-05 ***
## B08008ASem resposta                                 -0.003 0.997414    
## B08008ASim                                          -0.943 0.345777    
## B08010ASem resposta                                 -0.003 0.997384    
## B08010ASim                                           3.444 0.000573 ***
## B08014Com outra pessoa                               0.901 0.367773    
## B08014Com parceiro                                  -0.873 0.382609    
## B08014Com responsável                                0.236 0.813421    
## B08014Comprei                                        0.159 0.873401    
## B08014Na escola                                      2.669 0.007617 ** 
## B08014No serviço de saúde                            0.600 0.548499    
## B08014Sem resposta                                   1.136 0.255913    
## B0100316 ou 17 anos                                  6.475 9.48e-11 ***
## B0100318 anos ou mais                                5.473 4.43e-08 ***
## B01003Menos de 13 anos                               0.003 0.997979    
## B01003sem resposta                                   2.097 0.036015 *  
## B01002Branca                                        -0.127 0.898663    
## B01002Indígena                                       1.960 0.050048 .  
## B01002Parda                                          0.946 0.344327    
## B01002Preta                                          0.774 0.439203    
## B01002Sem resposta                                   1.322 0.186218    
## B01008BNão terminou o Ensino Fundamental (1º grau)  -1.283 0.199643    
## B01008BNão terminou o Ensino Médio (2º grau)        -0.680 0.496202    
## B01008BNão terminou o Ensino Superior (faculdade)    0.248 0.804330    
## B01008BSem reposta                                   0.000 0.999994    
## B01008BSem resposta                                 -1.123 0.261325    
## B01008BTerminou o Ensino Fundamental (1º grau)      -0.121 0.903872    
## B01008BTerminou o Ensino Médio (2º grau)            -1.636 0.101739    
## B01008BTerminou o Ensino Superior (faculdade)       -2.877 0.004020 ** 
## B04001Sem reposta                                    0.000 0.999986    
## B04001Sem resposta                                   0.000 0.999996    
## B04001Sim                                            1.745 0.080983 .  
## B05002ASem reposta                                   0.000 0.999993    
## B05002ASem resposta                                  0.690 0.490054    
## B05002ASim                                          -2.077 0.037789 *  
## B06001Sem reposta                                       NA       NA    
## B06001Sem resposta                                   1.015 0.309972    
## B06001Sim                                            2.823 0.004759 ** 
## B08007Não sei                                       -2.486 0.012927 *  
## B08007Sem reposta                                    0.001 0.999588    
## B08007Sem resposta                                  -0.053 0.957599    
## B08007Sim                                           -0.014 0.988961    
## B08009A                                              2.993 0.002759 ** 
## B09003A2 a 5 vezes                                  -1.025 0.305129    
## B09003A6 ou mais vezes                              -0.435 0.663692    
## B09003ANenhuma vez nos últimos 12 meses             -2.462 0.013799 *  
## B09003ASem reposta                                  -0.149 0.881808    
## B09003ASem resposta                                  0.734 0.463151    
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## (Dispersion parameter for binomial family taken to be 1)
## 
##     Null deviance: 3353.8  on 19956  degrees of freedom
## Residual deviance: 2000.1  on 19910  degrees of freedom
## AIC: 2094.1
## 
## Number of Fisher Scoring iterations: 21

tbl_regression(modelo, exponentiate = TRUE )

Characteristic	OR1	95% CI1	p-value
B08008A
Não	—	—
Sem resposta	0.00	0.00, Inf	>0.9
Sim	0.86	0.63, 1.18	0.3
B08010A
Não	—	—
Sem resposta	0.00	0.00, Inf	>0.9
Sim	1.78	1.28, 2.48	<0.001
B08014
Com amigo	—	—
Com outra pessoa	1.81	0.50, 6.57	0.4
Com parceiro	0.60	0.19, 1.89	0.4
Com responsável	1.18	0.31, 4.53	0.8
Comprei	1.10	0.35, 3.44	0.9
Na escola	14.1	2.02, 98.8	0.008
No serviço de saúde	1.43	0.45, 4.55	0.5
Sem resposta	1.90	0.63, 5.75	0.3
B01003
13 a 15 anos	—	—
16 ou 17 anos	2.60	1.95, 3.47	<0.001
18 anos ou mais	4.46	2.61, 7.62	<0.001
Menos de 13 anos	20,520,689,925,255	0.00, Inf	>0.9
sem resposta	3.39	1.08, 10.6	0.036
B01002
Amarelo	—	—
Branca	0.96	0.50, 1.84	0.9
Indígena	2.20	1.00, 4.83	0.050
Parda	1.35	0.72, 2.53	0.3
Preta	1.30	0.67, 2.56	0.4
Sem resposta	1.88	0.74, 4.79	0.2
B01008B
Minha mãe não estudou	—	—
Não terminou o Ensino Fundamental (1º grau)	0.73	0.46, 1.18	0.2
Não terminou o Ensino Médio (2º grau)	0.81	0.45, 1.47	0.5
Não terminou o Ensino Superior (faculdade)	1.08	0.60, 1.94	0.8
Sem reposta	1.54	0.00, Inf	>0.9
Sem resposta	0.75	0.46, 1.24	0.3
Terminou o Ensino Fundamental (1º grau)	0.96	0.53, 1.75	>0.9
Terminou o Ensino Médio (2º grau)	0.65	0.39, 1.09	0.10
Terminou o Ensino Superior (faculdade)	0.44	0.26, 0.77	0.004
B04001
Não	—	—
Sem reposta	0.38	0.00, Inf	>0.9
Sem resposta	1.05	0.00, Inf	>0.9
Sim	1.29	0.97, 1.73	0.081
B05002A
Não	—	—
Sem reposta	1.38	0.00, Inf	>0.9
Sem resposta	2.97	0.14, 65.0	0.5
Sim	0.66	0.45, 0.98	0.038
B06001
Não	—	—
Sem resposta	3.21	0.34, 30.4	0.3
Sim	1.50	1.13, 2.00	0.005
B08007
Não	—	—
Não sei	0.52	0.31, 0.87	0.013
Sem reposta	278,439	0.00, Inf	>0.9
Sem resposta	0.00	0.00, Inf	>0.9
Sim	1.00	0.78, 1.29	>0.9
B08009A	1.51	1.15, 1.97	0.003
B09003A
1 vez	—	—
2 a 5 vezes	0.79	0.51, 1.23	0.3
6 ou mais vezes	0.90	0.55, 1.46	0.7
Nenhuma vez nos últimos 12 meses	0.67	0.48, 0.92	0.014
Sem reposta	0.85	0.09, 7.66	0.9
Sem resposta	1.65	0.43, 6.35	0.5
1 OR = Odds Ratio, CI = Confidence Interval

1.3 Quantidade de Participantes

1.3.1 Meninas de 8º e 9º anos

## [1] 19957

# Contando as frequências das respostas
frequencias <- table(dados$B08013A)

# Alterando os rótulos para "Não" e "Sim"
names(frequencias) <- c("Não", "Sim")

# Criando o gráfico de barras com eixo Y ajustado e largura correta
barplot(frequencias,
        main = "Quantitativo de Respostas - Gravidez",
        xlab = "Respostas",
        ylab = "Quantidade",
        col = "skyblue",    # Cor das barras
        border = "black",
        ylim = c(0, 30000), # Configura o eixo Y para ir de 0 a 50.000
        width = c(0.5, 0.5), # Corrige a largura das barras
        yaxt = "n") -> bp   # Remove o eixo Y padrão para customizar depois

# Adicionando um eixo Y personalizado
axis(2, at = seq(0, 30000, by = 10000), las = 1)

# Adicionando os valores no topo de cada barra
text(x = bp, y = frequencias, labels = frequencias, pos = 3, cex = 0.9, col = "black")

1.4 Gráfico de Barras

# Lista de variáveis a serem analisadas
variaveis <- c("B08010A", "B08014", "B01003", "B01002", "B01008B", 
               "B04001", "B05002A", "B06001", "B08007", "B09003A")

# Loop para gerar gráficos de barras para todas as variáveis
for (var in variaveis) {
  # Contar as frequências
  frequencias <- table(dados[[var]])
  
  # Criar o gráfico e salvar as posições das barras
  bp <- barplot(frequencias,
                main = paste("Distribuição de Respostas -", var),
                xlab = "Respostas",
                ylab = "Quantidade",
                col = "lightblue",
                border = "black",
                las = 2,
                ylim = c(0, max(frequencias) + 5))  # Ajusta espaço para os rótulos
  
  # Adicionar valores no topo de cada barra
  text(x = bp, y = frequencias, labels = frequencias, pos = 3, cex = 0.8, col = "black")
}

1.5 Tabelas com as variáveis

Tabela de Frequências da Variável B08008A

Categoria	Frequência
Não	5135
Sem resposta	801
Sim	14021

Tabela de Frequências da Variável B08010A

Categoria	Frequência
Não	8433
Sem resposta	805
Sim	10719

Tabela de Frequências da Variável B08014

Categoria	Frequência
Com amigo	55
Com outra pessoa	95
Com parceiro	935
Com responsável	108
Comprei	601
Na escola	7
No serviço de saúde	325
Sem resposta	17831

Tabela de Frequências da Variável B01003

Categoria	Frequência
13 a 15 anos	18235
16 ou 17 anos	806
18 anos ou mais	125
Menos de 13 anos	745
sem resposta	46

Tabela de Frequências da Variável B01002

Categoria	Frequência
Amarelo	799
Branca	7438
Indígena	672
Parda	8823
Preta	1870
Sem resposta	355

Tabela de Frequências da Variável B01008B

Categoria	Frequência
Minha mãe não estudou	579
Não terminou o Ensino Fundamental (1º grau)	2502
Não terminou o Ensino Médio (2º grau)	1154
Não terminou o Ensino Superior (faculdade)	1515
Sem reposta	2
Sem resposta	3605
Terminou o Ensino Fundamental (1º grau)	820
Terminou o Ensino Médio (2º grau)	3491
Terminou o Ensino Superior (faculdade)	6289

Tabela de Frequências da Variável B04001

Categoria	Frequência
Não	16024
Sem reposta	3
Sem resposta	761
Sim	3169

Tabela de Frequências da Variável B05002A

Categoria	Frequência
Não	8195
Sem reposta	6
Sem resposta	774
Sim	10982

Tabela de Frequências da Variável B06001

Categoria	Frequência
Não	17521
Sem reposta	6
Sem resposta	782
Sim	1648

Tabela de Frequências da Variável B08007

Categoria	Frequência
Não	2045
Não sei	319
Sem reposta	10
Sem resposta	16236
Sim	1347

Tabela de Frequências da Variável B09003A

Categoria	Frequência
1 vez	2623
2 a 5 vezes	1758
6 ou mais vezes	800
Nenhuma vez nos últimos 12 meses	14668
Sem reposta	30
Sem resposta	78