class: center, middle, inverse, title-slide # Correlações ## ⚔<br/>com xaringan ### Leir ### UNIRIO ### 08/04/2021 (updated: 2021-04-08) --- --- class: center, middle # Análise de duas variáveis quantitativas ### Diagrama de dispersão ### coeficiente de relação --- # Passo 1 - Carregar a base de dados ```r # Carregar a base de dados library(readxl) QE <- read_excel("C:/Users/favor/Base_de_dados-master/Questionario_Estresse.xls") View(QE) names(QE) ``` ``` ## [1] "Aluno" "Turma" "Mora_pais" "RJ" "Namorado_a" ## [6] "Trabalha" "Desempenho" "Estresse" "Créditos" "Horas_estudo" ``` --- # Passo 2 - Carregar a biblioteca DPLYR ```r library(dplyr) ``` ``` ## ## Attaching package: 'dplyr' ``` ``` ## The following objects are masked from 'package:stats': ## ## filter, lag ``` ``` ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union ``` --- # Passo 3 - mudança da coluna **Créditos** ```r colnames(QE) [9] <- 'Creditos' ``` --- # Passo 4 - resumão das variáveis ```r QE %>% summarise(median=mean(Creditos,na.rm=TRUE)) ``` ``` ## # A tibble: 1 x 1 ## median ## <dbl> ## 1 24.9 ``` ```r QE %>% summarise(media_HE=mean(Horas_estudo), nota_media=mean(Desempenho), Estresse_medio=mean(Estresse), Cred_medio=mean(Creditos,na.rm=TRUE), dp_HE=sd(Horas_estudo), nota_dp=sd(Desempenho), Estresse_dp=sd(Estresse), Cred_medio=sd(Creditos,na.rm = TRUE)) ``` ``` ## # A tibble: 1 x 7 ## media_HE nota_media Estresse_medio Cred_medio dp_HE nota_dp Estresse_dp ## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> ## 1 30.7 8.59 27.8 4.08 7.28 0.775 7.54 ``` --- # Passo 5 - Diagrama de dispersão <!-- --> --- <!-- --> --- ## HE e estresse <!-- --> --- class: center, middle # Passo 6 - Correlações ```r # qual a correlação entre HE e Desempenho? cor(QE$Desempenho,QE$Horas_estudo) ``` ``` ## [1] 0.2231532 ``` ```r cor(QE$Desempenho,QE$Estresse) ``` ``` ## [1] 0.08257246 ``` ```r cor(QE$Horas_estudo,QE$Estresse) ``` ``` ## [1] 0.303917 ``` --- ```r names(QE) ``` ``` ## [1] "Aluno" "Turma" "Mora_pais" "RJ" "Namorado_a" ## [6] "Trabalha" "Desempenho" "Estresse" "Creditos" "Horas_estudo" ``` ```r QE_quanti <- QE %>% select(Desempenho,Estresse,Creditos,Horas_estudo) QE_quanti <- na.omit(QE_quanti) cor(QE_quanti) ``` ``` ## Desempenho Estresse Creditos Horas_estudo ## Desempenho 1.00000000 0.08826556 0.08631523 0.2251028 ## Estresse 0.08826556 1.00000000 -0.05898032 0.3016580 ## Creditos 0.08631523 -0.05898032 1.00000000 0.4984399 ## Horas_estudo 0.22510279 0.30165796 0.49843993 1.0000000 ``` --- ```r names(QE) ``` ``` ## [1] "Aluno" "Turma" "Mora_pais" "RJ" "Namorado_a" ## [6] "Trabalha" "Desempenho" "Estresse" "Creditos" "Horas_estudo" ``` ```r QE_quanti <- QE %>% select(Desempenho,Estresse,Creditos,Horas_estudo) QE_quanti <- na.omit(QE_quanti) cor(QE_quanti) ``` ``` ## Desempenho Estresse Creditos Horas_estudo ## Desempenho 1.00000000 0.08826556 0.08631523 0.2251028 ## Estresse 0.08826556 1.00000000 -0.05898032 0.3016580 ## Creditos 0.08631523 -0.05898032 1.00000000 0.4984399 ## Horas_estudo 0.22510279 0.30165796 0.49843993 1.0000000 ``` --- ```r library(corrplot) ``` ``` ## Warning: package 'corrplot' was built under R version 4.0.5 ``` ``` ## corrplot 0.84 loaded ``` ```r MCorr <- cor(QE_quanti) corrplot(MCorr) ``` <!-- --> --- ``` ## [1] "Kmporlitro" "Cilindros" ## [3] "Preco" "HP" ## [5] "Amperagem_circ_eletrico" "Peso" ## [7] "RPM" "Tipodecombustivel" ## [9] "TipodeMarcha" "NumdeMarchas" ## [11] "NumdeValvulas" ``` ``` ## Kmporlitro Preco HP ## Kmporlitro 1.0000000 -0.8475514 -0.7761684 ## Preco -0.8475514 1.0000000 0.7909486 ## HP -0.7761684 0.7909486 1.0000000 ## Amperagem_circ_eletrico 0.6811719 -0.7102139 -0.4487591 ## RPM 0.4186840 -0.4336979 -0.7082234 ## Peso -0.8676594 0.8879799 0.6587479 ## Amperagem_circ_eletrico RPM Peso ## Kmporlitro 0.68117191 0.41868403 -0.8676594 ## Preco -0.71021393 -0.43369788 0.8879799 ## HP -0.44875912 -0.70822339 0.6587479 ## Amperagem_circ_eletrico 1.00000000 0.09120476 -0.7124406 ## RPM 0.09120476 1.00000000 -0.1747159 ## Peso -0.71244065 -0.17471588 1.0000000 ``` <!-- --><!-- --><!-- --><!-- --><!-- -->