We will use the data set ceo2013 available in the UsingR package which contains information about ceo compensation.

Type the following commands to access the data and to create the data frame ceoDF by choosing only some of the columns in this data.

library(UsingR) (install the package if necessary)

head(ceo2013)

ceoDF <- ceo2013[,c("industry", "base_salary", "cash_bonus", "fy_end_revenue")]

head(ceoDF)

Now, using the ceoDF data frame, answer the following questions and show the code for the following steps and write the resulting output only where asked.

Use the ggplot2 library for plots in this question.

a) Plot the histogram of base_salary. Show only the R-Code.

b) Plot the scatter plot of base_salary versus fy_end_revenue using different colored points for each industry. Show only the R-Code.

c) Create a new total_compensation column by adding the base_salary and cash_bonus columns. Show only the R-Code.

d) Plot the scatter plot of total_compensation versus fy_end_revenue using facet_wrap feature with the industry as the facet. Show the R-Code and the Result.

Data management please help!