R Notebook
(1) Pedindo packages
library(DataExplorer)
Registered S3 method overwritten by 'data.table':
method from
print.data.table
Registered S3 method overwritten by 'htmlwidgets':
method from
print.htmlwidget tools:rstudioDados
Dados Karen
library(haven)
ds <- read_sav("C:/Users/luisf/Dropbox/Puc-Rio/Consultoria - Karen Weimer/Karen_dados_DOUTORADO FINAL 24-7-18.sav")
backup <- dsDados Thamara
Data processing
ds_2 %>% names
[1] "session" "tcle"
[3] "idade" "sexo"
[5] "genero" "genero2"
[7] "kinsey" "escolaridade"
[9] "etnia" "ocupacao"
[11] "renda" "saude"
[13] "deficiencia" "celular"
[15] "status1" "status2"
[17] "status3" "status4"
[19] "status5" "status6"
[21] "status7" "status8"
[23] "status9" "status10"
[25] "ass1" "ass2"
[27] "ass3" "ass4"
[29] "ass5" "ass6"
[31] "ass7" "ass8"
[33] "ass9" "ass10"
[35] "ass11" "projeto1"
[37] "projeto2" "projeto3"
[39] "projeto4" "projeto5"
[41] "projeto6" "projeto7"
[43] "projeto8" "projeto9"
[45] "projeto10" "projeto11"
[47] "projeto12" "projeto13"
[49] "projeto14" "projeto15"
[51] "projeto16" "projeto17"
[53] "projeto18" "projeto19"
[55] "projeto20" "projeto21"
[57] "projeto22" "ptojeto23"
[59] "pprq1" "pprq2"
[61] "pprq3" "pprq4"
[63] "pprq5" "pprq6"
[65] "pprq7" "pprq8"
[67] "pprq9" "pprq10"
[69] "pprq11" "phdu1"
[71] "phdu2" "phdu3"
[73] "phdu4" "phdu5"
[75] "phdu6" "phdu7"
[77] "phdu8" "phdu9"
[79] "phdu10" "phdu11"
[81] "phdu12" "phdu13"
[83] "phdu14" "coras1"
[85] "coras2" "coras3"
[87] "coras4" "coras5"
[89] "coras6" "coras7"
[91] "coras8" "dsm_1"
[93] "dsm_2" "dsm_3"
[95] "dsm_4" "dsm_5"
[97] "dsm_6" "dsm_7"
[99] "dsm_8" "dsm_9"
[101] "dsm_10" "dsm_11"
[103] "dsm_12" "dsm_13"
[105] "dsm_14" "dsm_15"
[107] "dsm_16" "dsm_17"
[109] "dsm_18" "dsm_19"
[111] "dsm_20" "dsm_21"
[113] "dsm_22" "dsm_23"
[115] "asi1" "asi2"
[117] "asi3" "asi4"
[119] "asi5" "asi6"
[121] "asi5_gesta" "asi6_gesta"
[123] "asi7_gesta" "asi8"
[125] "asi9" "asi10"
[127] "asi11" "asi12"
[129] "asi13" "asi12_gesta"
[131] "asi13_gesta" "asi14_gesta"
[133] "asi15" "asi16"
[135] "asi17" "asi18"
[137] "asi19" "asi20"
[139] "asi19_gesta" "asi20_gesta"
[141] "asi21_gesta" "asi22"
[143] "asi23" "asi24"
[145] "asi25" "asi26"
[147] "asi27" "asi26_gesta"
[149] "asi27_gesta" "asi28_gesta"
[151] "asi29" "asi30"
[153] "asi31" "pacv1"
[155] "pacv2" "pacv3"
[157] "pacv4" "pacv5"
[159] "pacv6" "pacv7"
[161] "pacv8" "pacv9"
[163] "pacv10" "pacv11"
[165] "pacv12" "pacv13"
[167] "pacv14" "pacv15"
[169] "pacv16" "pacv17"
[171] "pacv18" "tipi1"
[173] "tipi2" "tipi3"
[175] "tipi4" "tipi5"
[177] "tipi6" "tipi7"
[179] "tipi8" "tipi9"
[181] "tipi10" "ssss1"
[183] "ssss2" "ssss3"
[185] "ssss4" "ssss5"
[187] "ssss6" "ssss7"
[189] "pbimae" "pbimae1"
[191] "pbimae2" "pbimae3"
[193] "pbimae4" "pbimae5"
[195] "pbimae6" "pbimae7"
[197] "pbimae8" "pbimae9"
[199] "pbimae10" "pbimae11"
[201] "pbimae12" "pbimae13"
[203] "pbimae14" "pbimae15"
[205] "pbimae16" "pbimae17"
[207] "pbimae18" "pbimae19"
[209] "pbimae20" "pbimae21"
[211] "pbimae22" "pbimae23"
[213] "pbimae24" "pbimae25"
[215] "pbipai" "pbipai1"
[217] "pbipai2" "pbipai3"
[219] "pbipai4" "pbipai5"
[221] "pbipai6" "pbipai7"
[223] "pbipai8" "pbipai9"
[225] "pbipai10" "pbipai11"
[227] "pbipai12" "pbipai13"
[229] "pbipai14" "pbipai15"
[231] "pbipai16" "pbipai17"
[233] "pbipai18" "pbipai19"
[235] "pbipai20" "pbipai21"
[237] "pbipai22" "pbipai23"
[239] "pbipai24" "pbipai25"
[241] "tipi_inver6" "tipi_inver2"
[243] "tipi_inver8" "tipi_inver4"
[245] "tipi_inver10" "tipi_total"
[247] "extroversao" "amabilidade"
[249] "conscienciosidade" "estabilidade_emocional"
[251] "abertura_experiencias" "pprqtotal"
[253] "pprqgravidez" "pprqbebe"
[255] "phdumaconha" "phducoca"
[257] "phducrack" "phdualcool"
[259] "phdutotal" "coras_jatieramvacinados"
[261] "pacv_total" "pacv_comportamento"
[263] "pacv_seguranca" "pacv_confianca"
[265] "coras4_invertida" "coras3_invertida"
[267] "coras_total" "pbimae2_inver"
[269] "pbimae4_invert" "pbimae14_invert"
[271] "pbimae16_invert" "pbimae18_invert"
[273] "pbimae24_invert" "pbimae3_invert"
[275] "pbimae7_invert" "pbimae15_invert"
[277] "pbimae21_invert" "pbimae22_invert"
[279] "pbimae25_invert" "pbimae_afeto"
[281] "pbimae_superprotecao" "pbi_mae_protecao_dic"
[283] "pbi_afeto_mae_dic" "pbipai2_invert"
[285] "pbipai4_invert" "pbipai14_invert"
[287] "pbipai16_invert" "pbipai18_invert"
[289] "pbipai3_invert" "pbipai7_invert"
[291] "pbipai15_invert" "pbipai21_invert"
[293] "pbipai22_invert" "pbipai25_invert"
[295] "pbipai24_invert" "pbipai_afeto"
[297] "pbipai_superprotecao" "pbi_pai_afeto_score_dic"
[299] "pbi_pai_protecao_score_dic" "ets_depre"
[301] "ets_depre_dic" "ets_raiva"
[303] "presenca_raiva_ets_dic" "ets_mania"
[305] "presenca_bipolar_ets_dic" "ets_ansiedade"
[307] "presenca_ansiedade_ets_dic" "ets_sintomas_somaticos"
[309] "presenca_sintomas_somaticos_ets_dic" "ets_ideacao_suicida"
[311] "presenca_ideacao_suicida_ets_dic" "ets_psicose"
[313] "presenca_psicose_ets_dic" "ets_disturbio_do_sono"
[315] "presenca_disturbio_do_sono_ets_dic" "ets_memoria"
[317] "presenca_defict_memoria_ets_dic" "ets_repeticao_pensamentoecompor"
[319] "presenca_repeticao_ets_dic" "ets_dissociacao"
[321] "presenca_dissociacao_ets_dic" "ets_funcionamento_da_personalidade"
[323] "personalidade_disfuncional_ets_dic" "ets_usodesubstancias"
[325] "presenca_usodesubst_ets_dic" "ssss_total" 
ds_2 %>% select(idade, starts_with("projeto")) %>%
mutate_all(., as.numeric) %>%
skimr::skim()
-- Data Summary ------------------------
Values
Name Piped data
Number of rows 295
Number of columns 23
_______________________
Column type frequency:
numeric 23
________________________
Group variables None
-- Variable type: numeric ---------------------------------------------------------------------------------
# A tibble: 23 x 11
skim_variable n_missing complete_rate mean sd p0 p25 p50 p75 p100 hist
* <chr> <int> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
1 idade 90 0.695 32.7 10.9 0 25 30 38 65 ▁▆▇▂▂
2 projeto1 103 0.651 8.68 2.43 0 8 10 10 10 ▁▁▁▂▇
3 projeto2 103 0.651 4.84 2.67 0 3 5 7 10 ▅▃▇▃▂
4 projeto3 103 0.651 8.94 2.71 0 10 10 10 10 ▁▁▁▁▇
5 projeto4 103 0.651 8.13 2.93 0 7 10 10 10 ▁▁▂▂▇
6 projeto5 103 0.651 3.59 3.48 0 0 3 6 10 ▇▂▅▂▂
7 projeto6 103 0.651 1.89 3.03 0 0 0 2.25 10 ▇▁▁▁▁
8 projeto7 103 0.651 9.09 2.82 0 10 10 10 10 ▁▁▁▁▇
9 projeto8 103 0.651 4.03 3.52 0 0 4 7 10 ▇▂▃▃▂
10 projeto9 103 0.651 8.57 2.74 0 8 10 10 10 ▁▁▁▂▇
11 projeto10 103 0.651 5.62 2.54 0 4 5 8 10 ▂▅▇▆▃
12 projeto11 103 0.651 7.67 2.80 0 6 9 10 10 ▁▁▂▃▇
13 projeto12 103 0.651 7.88 2.81 0 7 9 10 10 ▁▁▂▃▇
14 projeto13 103 0.651 7.83 2.60 0 6 9 10 10 ▁▁▂▃▇
15 projeto14 111 0.624 7.39 2.70 0 6 8 10 10 ▁▁▃▅▇
16 projeto15 111 0.624 7.03 2.67 0 5 8 9 10 ▂▂▃▇▇
17 projeto16 111 0.624 7.25 2.49 0 6 8 10 10 ▂▂▃▇▇
18 projeto17 111 0.624 8.21 2.27 0 8 9 10 10 ▁▁▁▅▇
19 projeto18 111 0.624 8 2.47 0 7 9 10 10 ▁▁▂▃▇
20 projeto19 111 0.624 3.57 2.89 0 0.75 3 5 10 ▇▃▆▂▁
21 projeto20 111 0.624 3.80 2.99 0 1 4 6 10 ▇▃▆▃▂
22 projeto21 111 0.624 3.95 3.53 0 0 4 6 10 ▇▂▅▂▃
23 projeto22 111 0.624 3.74 3.13 0 0 4 5 10 ▇▃▆▂▂Graafico
ds_2 %>% select(starts_with("projeto")) %>%
mutate_all(., as.numeric) %>%
pivot_longer(everything()) %>%
ggplot(., aes(x=name, y = value)) +
geom_boxplot()```
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQoNCiMgKDEpIFBlZGluZG8gcGFja2FnZXMgDQoNCmBgYHtyfQ0KbGlicmFyeSgidGlkeXZlcnNlIikNCmxpYnJhcnkoRGF0YUV4cGxvcmVyKQ0KYGBgDQoNCiMgRGFkb3MNCg0KIyMgRGFkb3MgS2FyZW4NCg0KYGBge3J9DQpsaWJyYXJ5KGhhdmVuKQ0KZHMgPC0gcmVhZF9zYXYoIkM6L1VzZXJzL2x1aXNmL0Ryb3Bib3gvUHVjLVJpby9Db25zdWx0b3JpYSAtIEthcmVuIFdlaW1lci9LYXJlbl9kYWRvc19ET1VUT1JBRE8gRklOQUwgMjQtNy0xOC5zYXYiKQ0KYmFja3VwIDwtIGRzDQpgYGANCg0KIyMgRGFkb3MgVGhhbWFyYQ0KDQoNCmBgYHtyfQ0KZHNfMiA8LSByZWFkX3NhdigiQzovVXNlcnMvbHVpc2YvRGVza3RvcC9iYW5jb3Jpc2NvYW9mZXRvXzcwNjIwMjJKVU5UQURPMjEuMDYuc2F2IikNCmJhY2t1cF8yIDwtIGRzXzINCmBgYA0KDQoNCiMjIERhdGEgcHJvY2Vzc2luZw0KDQoNCmBgYHtyfQ0KI2luc3RhbGwucGFja2FnZXMoImphbml0b3IiKQ0KbGlicmFyeShqYW5pdG9yKQ0KDQpkc18yIDwtIGNsZWFuX25hbWVzKGRzXzIpDQpkc18yICU+JSBuYW1lcw0KYGBgDQoNCg0KDQoNCmBgYHtyfQ0KbGlicmFyeShzdW1tYXJ5dG9vbHMpDQp2aWV3KGRmU3VtbWFyeShkc18yKSkNCmBgYA0KYGBge3J9DQpkc18yICU+JSBzZWxlY3QoaWRhZGUsIHN0YXJ0c193aXRoKCJwcm9qZXRvIikpICU+JSANCiAgbXV0YXRlX2FsbCguLCBhcy5udW1lcmljKSAlPiUgDQogIHNraW1yOjpza2ltKCkNCmBgYA0KDQoNCg0KIyMgR3JhYWZpY28NCg0KDQpgYGB7cn0NCmBgYHtyfQ0KZHNfMiAlPiUgc2VsZWN0KHN0YXJ0c193aXRoKCJwcm9qZXRvIikpICU+JSANCiAgbXV0YXRlX2FsbCguLCBhcy5udW1lcmljKSAlPiUgDQogIHBpdm90X2xvbmdlcihldmVyeXRoaW5nKCkpICU+JSANCiAgZ2dwbG90KC4sIGFlcyh4PW5hbWUsIHkgPSB2YWx1ZSkpICsNCiAgZ2VvbV9ib3hwbG90KCkNCmBgYA0KYGBgDQoNCg==