Background: This week you will be given a dataset and the documentation that goes along with the dataset. Up until today, I have told you what to graph or what fields to plot in the graphs. This week, you will decide what fields to use. Assignment:User RStudio to generate advanced graphs (using the ggplog2 package) using the dataset below.Replace each categorical placeholder with appropriate categorical data fields.Replace each continuous placeholder with appropriate continuous data fields. Use the video above as an introduction to this assignment. Note: We have already had our residency weekend, so you can ignore the comment about residency being next week.Both a screen shot and an explanation is required for each answer. Thus, you must write an answer to the question: What story is presented in this visualization? Copy all screen shots into one Word document (other word processors are fine to use but save it in MS Word format) and answer the question after each screen shot. Your answer should contain five to eight observations about the data. Your screen shots must show the full RStudio window with proof that your command ran successfully and contain the correct answer to the question. Circle the command and result in the console window of the screen shot if you have multiple commands showing in the screen shot. Remember to tell RStudio which fields are factors.Your cover page should contain the following: Title, Student’s name, University’s name, Course name, Course number, Professor’s name, and Date.Submit your assignment on or before the due date.Graphs to produce and question to answer:ggplot2 - Bar Plot: (Use dataset_budget_share_Food_Spanish_Households.csv)ggplot(dataset_name, aes(x=categorical, fill=categorical)) + facet_wrap(~categorical) + theme_bw() + geom_bar(position="dodge")Label the x-axis.Label the y-axis.Give the graph a title.What story is presented in this visualization? (5 to 8 observations)ggplot2 – Histogram: (Use dataset_budget_share_Food_Spanish_Households.csv)ggplot(dataset_name, aes(x=continuous, fill=categorical)) + theme_bw() + facet_wrap(~categorical) + geom_histogram(binwidth=5) -- you should decide the correct binwidthLabel the x-axis.Label the y-axis.Give the graph a title.What story is presented in this visualization? (5 to 8 observations)ggplot2 - Box Plot: (Use dataset_budget_share_Food_Spanish_Households.csv)ggplot(dataset_name, aes(x=categorical, y=continuous, fill=categorical)) + theme_bw() + facet_wrap(~categorical) + geom_boxplot()Label the x-axis.Label the y-axis.Give the graph a title.What story is presented in this visualization? (5 to 8 observations)ggplot2 - Scatter Plot: (Use dataset_budget_share_Food_Spanish_Households.csv)ggplot(dataset_name, aes(x=continuous, y=continuous, shape=categorical, col=categorical)) + facet_wrap(~categorical) + theme_bw() + geom_point() + geom_smooth(method="lm",se=F)Label the x-axis.Label the y-axis.Give the graph a title.What story is presented in this visualization? (5 to 8 observations)

In an essay format answer the following questions: In essay format answer the following questions: After reading the chapter by Capri (2015) on manual data collection.  Answer the following questions: What were the traditional methods of data collection in the transit system? Why are the traditional methods insufficient in satisfying the requirement of data collection? Give a synopsis of the case study and your thoughts regarding the requirements of the optimization and performance measurement requirements and the impact on the expensive and labor-intensive nature.