Carregar Base de dados

load("C:/Users/Angeli/Desktop/segundo_periodo/estatistica/dados/Base_de_dados-master/df_pokemon.RData")
View(df)

Base de dados escolhida - Pokémon

A base de dados pokémon foi escolhida pois ela apresenta uma grande malha de opções para a seleção dos daos no gráico que será feito.

Gráfico (Quali X Quali)

library(ggplot2)
ggplot(df) +
  aes(x = attack, y = defense) +
  geom_point(size = 1L, colour = "#0c4c8a") +
  labs(title = "Gráfico Pokémon", subtitle = "Ataque por defesa") +
  theme_minimal()

Análise do gráfico

Percebe-se que nao é porque um tipo de pokémon tem um alto ataque que ele vai ter uma alta defesa, e vice versa. É notorio que os pokémons com alto ataque possuem baixa defesa, e isso pode ser explicado pelo ditado “nao se dá asa a cobra”, pois seria muito “apelão” da parte do criador dos pokémons, criar um ser assim.

Gráfico Inédito

Carregar base de dados

library(readxl)
Questionario_Estresse <- read_excel("C:/Users/Angeli/Desktop/segundo_periodo/estatistica/dados/Base_de_dados-master/Questionario_Estresse.xls")
View(Questionario_Estresse)

Gráfico de Mosaico (Quali X Quali)

mosaicplot(table(Questionario_Estresse$Mora_pais,Questionario_Estresse$`Namorado(a)`), main = "Mora com os pais e namora", color = c("gray","pink"))

Análise

Percebe-se que a quantidade de alunos que mora com os pais e namora é maior que a quantidade que nao mora com os pais e namora. Levando para vida real, os dados não mentem. Uma pessoa que mora sozinha tem muitos outros afazeres mais importantes que namorar, pois tal atividade é estressante e demanda tempo e paciência.