Utilizando o dataset lakers que contém estatísticas jogo a jogo do Los Angeles Lakers na temporada 2008-2009, faça o que se pede:

  1. Repare que a coluna date no data.frame é um vetor de inteiros. Transforme essa coluna em um vetor de valores com classe date.
lakers = lakers %>% 
         mutate(date = ymd(date))
head(lakers$date)
## [1] "2008-10-28" "2008-10-28" "2008-10-28" "2008-10-28" "2008-10-28"
## [6] "2008-10-28"
tail(lakers$date)
## [1] "2009-04-14" "2009-04-14" "2009-04-14" "2009-04-14" "2009-04-14"
## [6] "2009-04-14"
  1. Crie uma coluna que junte as informações de data e tempo de jogo (colunas date e time) em objetos da classe date.
lakers = lakers %>% 
         mutate(data_tempo = ymd_hm(paste(date,time)))
head(lakers$data_tempo)
## [1] "2008-10-28 12:00:00 UTC" "2008-10-28 11:39:00 UTC"
## [3] "2008-10-28 11:37:00 UTC" "2008-10-28 11:25:00 UTC"
## [5] "2008-10-28 11:23:00 UTC" "2008-10-28 11:22:00 UTC"
tail(lakers$data_tempo)
## [1] "2009-04-14 00:42:00 UTC" "2009-04-14 00:42:00 UTC"
## [3] "2009-04-14 00:42:00 UTC" "2009-04-14 00:27:00 UTC"
## [5] "2009-04-14 00:21:00 UTC" "2009-04-14 00:20:00 UTC"
  1. Crie as colunas dia, mês e ano com as respectivas informações sobre a data do jogo.
lakers = lakers %>% mutate(dia = day(date),
                           mes = month(date),
                           ano = year(date))
head(cbind(lakers$dia, lakers$mes, lakers$ano))
##      [,1] [,2] [,3]
## [1,]   28   10 2008
## [2,]   28   10 2008
## [3,]   28   10 2008
## [4,]   28   10 2008
## [5,]   28   10 2008
## [6,]   28   10 2008
tail(cbind(lakers$dia, lakers$mes, lakers$ano))
##          [,1] [,2] [,3]
## [34619,]   14    4 2009
## [34620,]   14    4 2009
## [34621,]   14    4 2009
## [34622,]   14    4 2009
## [34623,]   14    4 2009
## [34624,]   14    4 2009
  1. Em média, quanto tempo os Lakers demoram para arremessar a primeira bola no primeiro período? Dica: arremessos são representados pela categoria shot da coluna etype.
dados = lakers %>% 
        filter(team == "LAL") %>% 
        filter(period == 1) %>% 
        filter(etype == "shot")

(num_seg<-sapply(strsplit("00:11:39", ":"), function(n) as.numeric(n) %*% c(3600, 60, 1)))
## [1] 699
#Calculando a media do tempo de arremessos (em segundos):
(media=699/length(dados$time))
## [1] 0.4012629
  1. Em média, quanto tempo demora para sair a primeira cesta de três pontos? Considere toda a base, e cestas de ambos os times.
dados1 = lakers %>% 
         filter(points == 3)%>%
         filter(result == "made")

(num_seg<-sapply(strsplit("00:11:46", ":"), function(n) as.numeric(n) %*% c(3600, 60, 1)))
## [1] 706
#Calculando o tempo que demora para sair a primeira cesta de tres pontos (em segundos):
(media=706/length(dados1$time))
## [1] 0.6561338