Tarefa 3 - gráfico de barras
Leoni Ferreira
23/03/2021
Inicialmente, será construida uma publicação de uma análise qualitativa e seis publicações de análises quantitativas.
O primeiro passo será incluir a base de dados a partir do comando load, para que possam ser visualizados os dados a serem estudados e, logo após, exibir uma prévia da estrutura da base de dados, com os valores e classificações adequados a cada variável.
load("C:/Users/ferre/Desktop/Base_de_dados-master/df_pokemon.RData")
str(df)## Classes 'tbl_df', 'tbl' and 'data.frame': 718 obs. of 22 variables:
## $ id : num 1 2 3 4 5 6 7 8 9 10 ...
## $ pokemon : chr "bulbasaur" "ivysaur" "venusaur" "charmander" ...
## $ species_id : int 1 2 3 4 5 6 7 8 9 10 ...
## $ height : int 7 10 20 6 11 17 5 10 16 3 ...
## $ weight : int 69 130 1000 85 190 905 90 225 855 29 ...
## $ base_experience: int 64 142 236 62 142 240 63 142 239 39 ...
## $ type_1 : chr "grass" "grass" "grass" "fire" ...
## $ type_2 : chr "poison" "poison" "poison" NA ...
## $ attack : int 49 62 82 52 64 84 48 63 83 30 ...
## $ defense : int 49 63 83 43 58 78 65 80 100 35 ...
## $ hp : int 45 60 80 39 58 78 44 59 79 45 ...
## $ special_attack : int 65 80 100 60 80 109 50 65 85 20 ...
## $ special_defense: int 65 80 100 50 65 85 64 80 105 20 ...
## $ speed : int 45 60 80 65 80 100 43 58 78 45 ...
## $ color_1 : chr "#78C850" "#78C850" "#78C850" "#F08030" ...
## $ color_2 : chr "#A040A0" "#A040A0" "#A040A0" NA ...
## $ color_f : chr "#81A763" "#81A763" "#81A763" "#F08030" ...
## $ egg_group_1 : chr "monster" "monster" "monster" "monster" ...
## $ egg_group_2 : chr "plant" "plant" "plant" "dragon" ...
## $ url_image : chr "1.png" "2.png" "3.png" "4.png" ...
## $ x : num 32.8 33.3 33.9 -24.4 -24.6 ...
## $ y : num 17.2 16.7 16.2 30.8 30.6 ...Aqui será inserido um resumo do banco de dados da tabela df, referente aos valores e classificações dos pokemons para as variáveis quantitativas e qualitativas.
summary(df) id pokemon species_id height
Min. : 1.0 Length:718 Min. : 1.0 Min. : 1.00
1st Qu.:180.2 Class :character 1st Qu.:180.2 1st Qu.: 6.00
Median :359.5 Mode :character Median :359.5 Median : 10.00
Mean :359.5 Mean :359.5 Mean : 11.41
3rd Qu.:538.8 3rd Qu.:538.8 3rd Qu.: 14.00
Max. :718.0 Max. :718.0 Max. :145.00
weight base_experience type_1 type_2
Min. : 1.0 Min. : 36.00 Length:718 Length:718
1st Qu.: 95.0 1st Qu.: 65.25 Class :character Class :character
Median : 280.0 Median :147.00 Mode :character Mode :character
Mean : 568.2 Mean :141.55
3rd Qu.: 609.5 3rd Qu.:177.00
Max. :9500.0 Max. :608.00
attack defense hp special_attack
Min. : 5.00 Min. : 5.00 Min. : 1.00 Min. : 10.00
1st Qu.: 53.00 1st Qu.: 50.00 1st Qu.: 50.00 1st Qu.: 45.00
Median : 73.00 Median : 65.00 Median : 65.00 Median : 65.00
Mean : 74.85 Mean : 70.67 Mean : 68.37 Mean : 68.47
3rd Qu.: 95.00 3rd Qu.: 85.00 3rd Qu.: 80.00 3rd Qu.: 90.00
Max. :165.00 Max. :230.00 Max. :255.00 Max. :154.00
special_defense speed color_1 color_2
Min. : 20.00 Min. : 5.00 Length:718 Length:718
1st Qu.: 50.00 1st Qu.: 45.00 Class :character Class :character
Median : 65.00 Median : 65.00 Mode :character Mode :character
Mean : 69.09 Mean : 65.72
3rd Qu.: 85.00 3rd Qu.: 85.00
Max. :230.00 Max. :160.00
color_f egg_group_1 egg_group_2 url_image
Length:718 Length:718 Length:718 Length:718
Class :character Class :character Class :character Class :character
Mode :character Mode :character Mode :character Mode :character
x y
Min. :-49.152 Min. :-45.793
1st Qu.:-17.695 1st Qu.:-17.293
Median : 0.705 Median : -0.628
Mean : 0.000 Mean : 0.000
3rd Qu.: 15.905 3rd Qu.: 18.155
Max. : 53.142 Max. : 46.593 Transformação dos dados qualitativos
A variável qualitativa escolhida para a análise foi a type_1, referente ao tipo de cada pokemon. São ao todo 18 tipos de pokemons com diferentes habilidades e suas prevalências. Essa variável está ligada às vantágens e desvantagens na qual o pokemon terá durante o enfrentamento de outros pokemons com domínio em outros elementos e características. Nota-se que os 4 tipos de pokemons mais comuns com relação a sua quantidade são respectivamente: os tipos aquáticos, seguidos dos normais, dos tipos de grama e insetos. Em contraponto, os tipos de pokemons em menos quantidade são os do tipos voador e tipo fada.
barplot(table(df$type_1),col = c("#38fcb1","blue"),main ="Tipos de Pokemon",ylim=c(0,120))
Transformação dos dados quantitativos
A seguir será demonstrado o gráfico que faz menção a força de ataque dos pokemons.
summary(df$attack) Min. 1st Qu. Median Mean 3rd Qu. Max.
5.00 53.00 73.00 74.85 95.00 165.00 hist(df$attack,col = "green", main = "Força de Ataque", ylim = c(0,200),xlim = c(0,200),
xlab = c("Ataque"),ylab = c("Frequência")) 
Nota-se que o gráfico tem uma aparência levemente assimétrica dentro da variável. Sua concentração mediana de força de ataque é de 73.00 pontos, enquanto sua média de força está em 74.85, que é um valor bem próximo de uma distribuição simétrica. A maior concentração de pokemons da variável encontra-se entre o valor de 50 e 100 pontos de defesa. Percebe-se também, que a barra decresce, mais ou menos apos o valor de 80 pontos e se encerra no valor de 165 pontos de ataque do pokemon rampardos .
.
.
.
A próxima análise demonstra a força de defesa dos pokemons.
summary(df$defense) Min. 1st Qu. Median Mean 3rd Qu. Max.
5.00 50.00 65.00 70.67 85.00 230.00 hist(df$defense,col = "#f73123", main = "Força de Defesa", ylim = c(0,250),xlim = c(0,250),
xlab = c("Ataque"),ylab = c("Frequência"))
Nota-se que o gráfico tem uma aparência assimétrica dentro da variável. Sua concentração mediana de força de defesa é de 65.00 pontos e sua média de força está em 70.67, que é um valor relativamente próximo de uma distribuição simétrica, mas que sofre uma influência pelos valores mais altos e fora da curva. Percebe-se que a barra decresce, mais ou menos apos o valor de 80 pontos, quase desaparecendo após os 200 pontos e volta a crescer novamente, tendo em vista o valor de defesa mais alto do pokemon shuckle de 230 pontos de força de defesa. .
.
.
.
A próxima análise demonstra a velocidade dos pokemons.
summary(df$speed) Min. 1st Qu. Median Mean 3rd Qu. Max.
5.00 45.00 65.00 65.72 85.00 160.00 hist(df$speed, col = "skyblue", main = "Velocidade de Movimento", xlim= c(0,200),ylim= c(0,200), xlab = "Velocidade (Km/h)",ylab = "Frequência" )
Nota-se que o gráfico também possui uma aparência assimétrica dentro da variável. Sua concentração mediana de velocidade é de 65.00 pontos e sua média de velocidade está em 65.72, que também é um valor próximo de uma distribuição simétrica entre a média e a mediana, mas que sofre um pouco de influência pelos valores mais altos.Percebe-se que existe uma concentração bem alta de pokemons que atingem a velocidade de cerca de 50Km/h, e a partir desse valor a barra decresce, encerrando-se no valor de velocidade mais alto do pokemon ninjask de 160Km/h. .
.
.
.
Transformação dos dados em Bloxpot
Bloxplot - demonstração da força de ataque dos pokemons.
boxplot(df$attack, col="#1936f7", main="Força de Ataque", ylim=c(0,200))
Por meio do gráfico, é possível concluir que:
- A variável possui 2 outliers além do valor máximo de 150 de Força de Ataque.
- Seus valores variam entre:
Mínimo - 5
1° Quartil - 53.00
Median - 73.00
3° Quartil - 95.00
Máximo - 165.00
- Os outliers se referem a três pokemons, sendo dois deles detentores de 160 de força de ataque (slaking e regigigas) e um único com força de atáque de 165 (rampardos).
- O gráfico é simétrico. .
.
.
.
Bloxplot - demonstração da força de defesa dos pokemons.
boxplot(df$defense, col="#d6d61c", main="Força de defesa", ylim=c(0,250))
Por meio do gráfico, é possível concluir que:
- A variável possui 9 outliers além do valor máximo de 150 de Força de Defesa.
- Seus valores variam entre:
Minimo - 5
1° Quartil - 50.00
Median - 65.00
3° Quartil - 85.00
Máximo - 230.00
- Os outliers se referem a oito pokemons, que variam sua força de defesa entre 160 e 230 pontos.
- O gráfico é levemente assimétrico do terceiro quartil ao valor máximo. .
.
.
.
Bloxplot - demonstração da velocidade de movimento dos pokemons.
boxplot(df$speed, col="#bc6ff7", main="Velocidade de Movimento", ylim=c(0,200))
Por meio do gráfico, é possível concluir que:
- A variável possui 2 outliers além do valor máximo de 150 de Velocidade de Movimento.
- Seus valores variam entre:
Minimo - 5
1° Quartil - 45.00
Median - 65.00
3° Quartil - 85.00
Máximo - 160.00
- Os outliers se referem a um único pokemons, detentor de uma Velocidade de 160 Km/h (ninjask).
- Quando comparado com a parte superior a médiana e a inferior, O gráfico é levemente assimétrico, tendo sua prevalência para a parte superior a mediana.
Dúvidas
Como alterar o gráfico Tipode Pokemon, para que o mesmo apresente todos os nomes dos 18 tipos?
Em pesquisas, com o objetivo de alterar a formatação do gráfico, me deparei com o comando ggplot, gostaria de saber sua funcionalidade para que possamos usar, se possível.