This is an R Markdown document. Markdown is a simple formatting syntax for authoring HTML, PDF, and MS Word documents. For more details on using R Markdown see http://rmarkdown.rstudio.com.
When you click the Knit button a document will be generated that includes both content as well as the output of any embedded R code chunks within the document. You can embed an R code chunk like this:
gdp <- read.csv('C:/Users/DELL/Downloads/imdb.csv')Data include movies information(score,genre,overview,crew,orig_title,status,orig_lang,budget_x,revenue,cost), Information of attributes names - name of the movie date_x - year-month-day score - score obtained for the movie on scale of 100 genre - type of the genre of the movie overview -overview of the movie in short crew - names of crew involved in the movie orig_title - original title of the movie status - status of the movie weather released or not yet released orig_lang -original language in which movie got released budget_x -total budget of the movie revenue country - total revenue generated to the country country -country in which the movie was released
The IMDB dataset contains information about movies, including their names user ratings, genres, overviews, cast and crew members, original titles, production status, original languages, budgets, revenues, and countries of origin. This data can be used for various analyses, such as identifying trends in movie genres, exploring the relationship between budget and revenue, and predicting the success of future movies.
class(gdp)## [1] "data.frame"str(gdp)## 'data.frame': 377 obs. of 12 variables:
## $ country : chr "Creed III" "Avatar: The Way of Water" "The Super Mario Bros. Movie" "Mummies" ...
## $ date_x : chr "03-02-2023" "12/15/2022 " "04-05-2023" "01-05-2023" ...
## $ score : int 73 78 76 70 61 66 80 83 59 58 ...
## $ genre : chr "Drama,?\xffAction" "Science Fiction,?\xffAdventure,?\xffAction" "Animation,?\xffAdventure,?\xffFamily,?\xffFantasy,?\xffComedy" "Animation,?\xffComedy,?\xffFamily,?\xffAdventure,?\xffFantasy" ...
## $ overview : chr "After dominating the boxing world, Adonis Creed has been thriving in both his career and family life. When a childhood friend a "Set more than a decade after the events of the first film, learn the story of the Sully family (Jake, Neytiri, and their kids), "While working underground to fix a water main, Brooklyn plumbers\x83??and brothers\x83??Mario and Luigi are transported down a "Through a series of unfortunate events, three mummies end up in present-day London and embark on a wacky and hilarious journey ...
## $ crew : chr "Michael B. Jordan, Adonis Creed, Tessa Thompson, Bianca Taylor, Jonathan Majors, Damien Anderson, Wood Harris, Tony 'Little Duk "Sam Worthington, Jake Sully, Zoe Salda?\xf1a, Neytiri, Sigourney Weaver, Kiri / Dr. Grace Augustine, Stephen Lang, Colonel Mile "Chris Pratt, Mario (voice), Anya Taylor-Joy, Princess Peach (voice), Charlie Day, Luigi (voice), Jack Black, Bowser (voice), Ke "??scar Barber?\xadn, Thut (voice), Ana Esther Alborg, Nefer (voice), Luis P??rez Reina, Carnaby (voice), Mar??a Luisa Sol?\xad, ...
## $ orig_title: chr "Creed III" "Avatar: The Way of Water" "The Super Mario Bros. Movie" " Momias" ...
## $ status : chr " Released" " Released" " Released" " Released" ...
## $ orig_lang : chr " English" " English" " English" " Spanish, Castilian" ...
## $ budget_x : num 7.50e+07 4.60e+08 1.00e+08 1.23e+07 7.70e+07 ...
## $ revenue : num 2.72e+08 2.32e+09 7.24e+08 3.42e+07 3.41e+08 ...
## $ X : chr "AU" "AU" "AU" "AU" ...summary(gdp)## country date_x score genre
## Length:377 Length:377 Min. : 0.00 Length:377
## Class :character Class :character 1st Qu.: 63.00 Class :character
## Mode :character Mode :character Median : 70.00 Mode :character
## Mean : 68.26
## 3rd Qu.: 76.00
## Max. :100.00
## overview crew orig_title status
## Length:377 Length:377 Length:377 Length:377
## Class :character Class :character Class :character Class :character
## Mode :character Mode :character Mode :character Mode :character
##
##
##
## orig_lang budget_x revenue X
## Length:377 Min. : 105 Min. :0.000e+00 Length:377
## Class :character 1st Qu.: 38211149 1st Qu.:1.020e+08 Class :character
## Mode :character Median : 92600000 Median :3.526e+08 Mode :character
## Mean : 96816280 Mean :4.080e+08
## 3rd Qu.:136400000 3rd Qu.:5.645e+08
## Max. :460000000 Max. :2.924e+09standard_deviation <- sd(gdp$budget_x, na.rm= TRUE)
variation <- var(gdp$score, na.rm= TRUE)
summ <- sum(gdp$revenue)
print(standard_deviation)## [1] 72239284print(variation)## [1] 150.0693print(summ)## [1] 153828499181plot(gdp\(budget_x, gdp\)score, main=“Scatter Plot of X vs Y”, xlab=“budget_x”, ylab=“score”)
hist(gdp$budget_x, main=“Histogram of Values”, xlab=“budget_x”)
boxplot(gdp$budget_x, main=“Box Plot of Values”)
pie(table(gdp$budget_x), main=“Pie Chart of Category”)
result <- aggregate(gdp\(budget_x,by=list(gdp\)budget_x), mean) result barplot(result\(x, names.arg=result\)Group.1, xlab=“budget_x”, ylab=“score”, col=rainbow(6), main=“budget_x vs score”,border=“black”)