Iniciei carregando a base de dados

load("H:/Faculdade/ESTATISTICA/Base_de_dados-master/Game of Thrones.RData")
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

Agora fiz um resumo de média, mediana e máxima dos dados obtidos acima

summary(tempo_de_tela)
##      nome              minutos          episodios    
##  Length:191         Min.   :  1.150   Min.   : 2.00  
##  Class :character   1st Qu.:  4.375   1st Qu.: 4.00  
##  Mode  :character   Median : 10.300   Median : 7.50  
##                     Mean   : 27.261   Mean   :12.44  
##                     3rd Qu.: 27.650   3rd Qu.:17.00  
##                     Max.   :293.300   Max.   :54.00  
##                                       NA's   :15

Continuei fazendo o resumo da média, mediana e máxima, porém, restringi aos minutagem dos personagens

summary(tempo_de_tela$minutos)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   1.150   4.375  10.300  27.261  27.650 293.300

Na finalização, criei um gráfico em barras, apenas para ter uma visualização, já que a compreensão do mesmo se torna difícil, já que possui muitos dados.

barplot(tempo_de_tela$minutos,
        main = "Gráfico do tempo de tela em relação aos minutos")