library(readxl)
Movies_gross_rating <- read_excel("C:/Users/sjuli/Downloads/Movies_gross_rating.xlsx")
View(Movies_gross_rating)

movies<-Movies_gross_rating


library(ggplot2)

grafico de caja y bigote

ggplot(movies, aes(x = Rating)) +
  geom_boxplot(fill="blue",color="green") + labs(x="rating")