class: center, middle, inverse, title-slide # Atividade 5 ## Diagrama de dispersão e uma matriz de correlação Pokémon ### André Sabatini --- background-image: url(https://upload.wikimedia.org/wikipedia/commons/thumb/9/98/International_Pok%C3%A9mon_logo.svg/280px-International_Pok%C3%A9mon_logo.svg.png) --- class: center, middle # Análise de variáveis quantitativas no Universo Pokémon ## Diagrama de dispersão ### Coeficiente de correlação --- # Carrengando base de dados e biblioteca dplyr ```r load("C:/Users/andre/Desktop/Unirio 2020.1/5f - Estatistica - Steven/Base_de_dados-master/df_pokemon.RData") names(df) ``` ``` ## [1] "id" "pokemon" "species_id" "height" ## [5] "weight" "base_experience" "type_1" "type_2" ## [9] "attack" "defense" "hp" "special_attack" ## [13] "special_defense" "speed" "color_1" "color_2" ## [17] "color_f" "egg_group_1" "egg_group_2" "url_image" ## [21] "x" "y" ``` ```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 ``` --- # Resumo das variáveis da Base de dados ```r resumo <- df %>% summarise(media_alt=mean(height), media_peso=mean(weight), media_ps=mean(hp), dp_alt=sd(height), dp_peso=sd(weight), dp_ps=sd(hp)) resumo ``` ``` ## # A tibble: 1 x 6 ## media_alt media_peso media_ps dp_alt dp_peso dp_ps ## <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> ## 1 11.4 568. 68.4 10.3 901. 25.9 ``` --- # Visualizando dados Criando um diagrama de dispersão Pontos de Sangue X Altura <!-- --> --- Exibindo diagrama de dispersão Altura X Peso <!-- --> --- Exibindo diagrama de dispersão Peso e Pontos de sangue <!-- --> --- # Correlações entre as variáveis Peso, Altura e Pontos de sangue ``` ## [1] "id" "pokemon" "species_id" "height" ## [5] "weight" "base_experience" "type_1" "type_2" ## [9] "attack" "defense" "hp" "special_attack" ## [13] "special_defense" "speed" "color_1" "color_2" ## [17] "color_f" "egg_group_1" "egg_group_2" "url_image" ## [21] "x" "y" ``` ``` ## weight height hp ## weight 1.0000000 0.6465813 0.4314012 ## height 0.6465813 1.0000000 0.4401011 ## hp 0.4314012 0.4401011 1.0000000 ``` --- ```r library(corrplot) ``` ``` ## Warning: package 'corrplot' was built under R version 4.0.5 ``` ``` ## corrplot 0.84 loaded ``` ```r Mcorr <- cor(Pokemon_quanti) ``` --- ```r corrplot.mixed(Mcorr) ``` <!-- --> --- #Conclusão ## Conclusão1: Alta relação entre peso e altura ## Conclusão2: Pouca relação entre peso e os pontos de sangue ## Conclusão3: Pouca relação entre altura e pontos de sangue