This question is based on sakila database. You will also need the DBI and RMySQL packages, as well as the ggplot$2$ package in R$.$

a$)$ Write a SQL Query to select payment$\_$id$,$ customer$\_$id$,$ rental$\_$id$,$ staff$\_$id and amount from the payment table for all customers whose id is smaller than $15.$

b$)$ Load the results of this query into a data frame pDF in R using the dbGetQuery command $($similar to what we did in class and assignments$).$ Show the R$-$Code.

$($While you need to create the connection string and run it in R$,$ you need not show that code here; it is sufficient to show the R code for dbGetQuery $).$

c$)$ Display the top six rows of pDF using the head command. Show the R$-$Code and the Result.

d$)$ Plot the histogram of the amount data. Show the R$-$Code and the Result.

e$)$ Plot the histogram of amount using the customer$\_$id as the facet. $($Hint: Use the facet$\_$wrap feature in ggplot$).$ Show the R$-$Code and the Result.