Load packages library(tidyverse) # data wrangling library(plotly) # make interactive JS plots Objective Visualize the distribution of the price, grouped by cut. Add the mean and/or the median to the picture for each subgroup. Load data data_url <- "https://vincentarelbundock.github.io/Rdatasets/csv/ggplot2/diamonds.csv" diamonds <- read_csv(data_url) Plot 1 plot1 <- diamonds %>% ggplot() + aes(x = price, fill = cut) + geom_histogram() + facet_wrap(~ cut) plot1 Plot 2 Summarized …