grpcs

```r
mcu.dataset <- read.csv("C:/Users/Dell/Downloads/mcu dataset.csv")
View(mcu.dataset)

summary(mcu.dataset)

##      Name           US.release.Date      Director           Producer        
##  Length:23          Length:23          Length:23          Length:23         
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##    Duration            Genre            IMDB.rating      metascore    
##  Length:23          Length:23          Min.   :6.600   Min.   :54.00  
##  Class :character   Class :character   1st Qu.:7.000   1st Qu.:64.00  
##  Mode  :character   Mode  :character   Median :7.400   Median :69.00  
##                                        Mean   :7.443   Mean   :68.65  
##                                        3rd Qu.:7.850   3rd Qu.:73.50  
##                                        Max.   :8.400   Max.   :88.00  
##      Cast              Budget          Domestic.Gross     Total.Gross       
##  Length:23          Length:23          Length:23          Length:23         
##  Class :character   Class :character   Class :character   Class :character  
##  Mode  :character   Mode  :character   Mode  :character   Mode  :character  
##                                                                             
##                                                                             
##                                                                             
##  Opening.Gross      Oscar.Nomination   Oscar.won          Phase      
##  Length:23          Min.   :0.0000   Min.   :0.0000   Min.   :1.000  
##  Class :character   1st Qu.:0.0000   1st Qu.:0.0000   1st Qu.:1.500  
##  Mode  :character   Median :0.0000   Median :0.0000   Median :2.000  
##                     Mean   :0.8261   Mean   :0.1304   Mean   :2.217  
##                     3rd Qu.:1.0000   3rd Qu.:0.0000   3rd Qu.:3.000  
##                     Max.   :7.0000   Max.   :3.0000   Max.   :3.000

summary(IMDB.rating~Director)

##  Length   Class    Mode 
##       3 formula    call

Outro

boxplot(IMDB.rating~Director,
        data= mcu.dataset,
        main=" Gráfico nota do IMDB por DIRETORES DOS FILMES",
        xlab="Diretores",
        ylab="NOTA DO IMDB",
        col="RED",
        border="DARKRED")

boxplot(metascore~Director,
        data= mcu.dataset,
        main=" Gráfico METASCORE por DIRETORES DOS FILMES",
        xlab="Diretores",
        ylab="METASCORE",
        col="BLACK",
        border="DARKRED")

boxplot(metascore~Oscar.Nomination,
        data= mcu.dataset,
        main=" Gráfico METASCORE por DIRETORES DOS FILMES",
        xlab="Oscar",
        ylab="METASCORE",
        col="blue",
        border="DARKRED")

outro

 par(bg="WHITE")
       plot(mcu.dataset$IMDB.rating,mcu.dataset$Oscar.Nomination, col="red", 
            main = "Gráfico - INDICAÇÕES NO OSCAR E NOTAS IMDB",
            pch=10, xlab="INDICAÇÕES AO OSCAR", ylab = "AVALIAÇÕES IMDB")
       abline(lsfit(mcu.dataset$IMDB.rating,mcu.dataset$Oscar.Nomination),col="BLUE")       

hist(mcu.dataset$IMDB.rating,col = "BLUE",main = "HISTOGRAMA DO IMDB")

 hist(mcu.dataset$metascore,col = "RED",main = "HISTOGRAMA DO METASCORE")

selecao = c("IMDB.rating", "Oscar.Nomination")
       
       cor_questionario = cor(mcu.dataset[,selecao])
       cor_questionario

##                  IMDB.rating Oscar.Nomination
## IMDB.rating        1.0000000        0.1893859
## Oscar.Nomination   0.1893859        1.0000000

       library(corrplot)

## corrplot 0.92 loaded

       corrplot(cor_questionario, method = "number", "full") # colorful number