colnames(dados_nba)[3]<-"Idade"colnames(dados_nba)[1]<-"Jogador"colnames(dados_nba)[2]<-"Posição"colnames(dados_nba)[4]<-"Time"colnames(dados_nba)[7]<-"Minutos Jogados pelo jogador"colnames(dados_nba)[13]<-"Pontos Marcados pelo jogador"colnames(dados_nba)[5]<-"Partidas Jogadas pelo jogador"colnames(dados_nba)[6]<-"Partidas iniciadas pelo jogador"colnames(dados_nba)[8]<-"Número de arremessos(cestas) pelo jogador"colnames(dados_nba)[9]<-"Número de tentativas de arremessos (cestas) pelo jogador"colnames(dados_nba)[11]<-"Número de assistências"colnames(dados_nba)[10]<-"Número de rebotes pelo jogador"colnames(dados_nba)[12]<-"Número de Roubadas de bola pelo jogador"
dados_nba$Faixa_de_Pontos <-cut(dados_nba$`Pontos Marcados pelo jogador`,c(0, 16, 34))levels(dados_nba$Faixa_de_Pontos)
[1] "(0,16]" "(16,34]"
levels(dados_nba$Faixa_de_Pontos) <-c("Até 16 pontos", "Mais que 16 pontos e menos que 34")
library(summarytools)
QUANTI X QUALI
a) Pontos Marcados X Posição
Existe relação entre os pontos marcados pelo jogador e sua posição?
Montando o Gráfico:
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
library(ggplot2)dados_nba %>%filter(Posição %in%c("Pivô", "Ala pivô", "Armador", "Ala", "Ala armador")) %>%ggplot() +aes(x = Posição, y =`Pontos Marcados pelo jogador`) +geom_boxplot(fill ="#FF69B4") +labs(x ="Posição do Jogador", y ="Pontos marcados", title ="Pontos marcados em relação à posição do jogador") +theme_minimal() +theme(plot.title =element_text(size = 18L, face ="bold", hjust =0.5), axis.title.y =element_text(size = 12L, face ="bold.italic"), axis.title.x =element_text(size = 12L, face ="bold.italic"))
b) Número de Tentativas de arremessos (CESTAS) X Posição
Existe relação entre as tentativas de arremesso (cestas) e a posição do jogador?
Montando o Gráfico:
library(dplyr)library(ggplot2)dados_nba %>%filter(Posição %in%c("Pivô", "Ala pivô", "Armador", "Ala", "Ala armador")) %>%filter(!is.na(`Número de tentativas de arremessos (cestas) pelo jogador`)) %>%ggplot() +aes(x = Posição, y =`Número de tentativas de arremessos (cestas) pelo jogador`) +geom_boxplot(fill ="#997BF4") +labs(x ="Posição do Jogador", y ="Tentativas de arremessos", title ="Tentativas de arremessos em relação à posição do jogador") +theme_minimal() +theme(plot.title =element_text(size = 16L, face ="bold", hjust =0.5), axis.title.y =element_text(face ="bold.italic"), axis.title.x =element_text(face ="bold.italic"))
QUANTI X QUANTI
a) Número de cestas x Número de Jogos
Qual a relação entre o número de jogos e a quantidade de cestas feitas pelos jogadores?
library(ggplot2)ggplot(dados_nba) +aes(x =`Partidas Jogadas pelo jogador`, y =`Número de arremessos(cestas) pelo jogador`) +geom_point(shape ="circle", size =1.8, colour ="#704439") +geom_smooth(span = 1L) +labs(x ="Partidas Jogadas", y ="Número de Cestas", title ="Relação entre o número de cestas e as partidas jogadas") +theme_minimal() +theme(plot.title =element_text(size = 16L, face ="bold", hjust =0.5), axis.title.y =element_text(face ="bold.italic"), axis.title.x =element_text(face ="bold.italic"))
`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
b) Número de cestas X Tentativas de arremesso
library(ggplot2)ggplot(dados_nba) +aes(x =`Número de tentativas de arremessos (cestas) pelo jogador`, y =`Número de arremessos(cestas) pelo jogador`) +geom_point(shape ="circle", size =1.5, colour ="#5E2010") +geom_smooth(span = 1L) +labs(x ="Tentativas de arremesso ", y ="Número de cestas ( pontos marcados)", title ="Número de cestas e tentativas de arremesso") +theme_minimal() +theme(plot.title =element_text(size = 18L, face ="bold.italic", hjust =0.5), axis.title.y =element_text(size = 14L, face ="bold.italic"), axis.title.x =element_text(size = 14L, face ="bold.italic"))
`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
QUALI X QUALI
Quais posições atingiram uma maior faixa de pontuação?
Cross-Tabulation, Row Proportions
Posição * Faixa_de_Pontos
Data Frame: dados_nba
--------------------- ----------------- --------------- ----------------------------------- ------------ --------------
Faixa_de_Pontos Até 16 pontos Mais que 16 pontos e menos que 34 <NA> Total
Posição
Pivô 101 ( 82.1%) 0 (0.0%) 22 (17.9%) 123 (100.0%)
Ala pivô 111 ( 95.7%) 0 (0.0%) 5 ( 4.3%) 116 (100.0%)
Ala pivô/Pivô 1 (100.0%) 0 (0.0%) 0 ( 0.0%) 1 (100.0%)
Ala pivô/Ala 1 (100.0%) 0 (0.0%) 0 ( 0.0%) 1 (100.0%)
Armador 105 ( 99.1%) 0 (0.0%) 1 ( 0.9%) 106 (100.0%)
Armador/Ala armador 2 (100.0%) 0 (0.0%) 0 ( 0.0%) 2 (100.0%)
Ala 117 (100.0%) 0 (0.0%) 0 ( 0.0%) 117 (100.0%)
Ala/Ala pivô 1 (100.0%) 0 (0.0%) 0 ( 0.0%) 1 (100.0%)
Ala/Ala armador 2 (100.0%) 0 (0.0%) 0 ( 0.0%) 2 (100.0%)
Ala armador 151 ( 98.7%) 0 (0.0%) 2 ( 1.3%) 153 (100.0%)
Ala armador/Armador 2 (100.0%) 0 (0.0%) 0 ( 0.0%) 2 (100.0%)
Total 594 ( 95.2%) 0 (0.0%) 30 ( 4.8%) 624 (100.0%)
--------------------- ----------------- --------------- ----------------------------------- ------------ --------------
library(ggplot2)ggplot(dados_nba) +aes(x = Posição, fill = Faixa_de_Pontos) +geom_bar(position ="dodge") +scale_fill_manual(values =c(`Até 16 pontos`="#FF1099", `Mais que 16 pontos e menos que 34`="#41CEFF")) +labs(x ="Posição", y ="Faixa de Pontuação", title ="Relação entre a posição e a faixa de pontuação") +theme_minimal()
