Упражнение на построение графика распределения цен на бриллианты

---

Загрузка библиотек

library(tidyverse)
library(readxl)
library(stringr)

#library(dplyr)
#library(ggplot2)
#library(tidyr)

---

Построение графика распределения цен на бриллианты

params <- list(rate = 1 / mean(diamonds$price)) 

while (!is.null(dev.list()))  dev.off()
p <- ggplot(data = diamonds) +
geom_histogram(mapping=aes(x=price, y=..density..), fill="#66CCFF", bins = 30) + 
  stat_function(fun = dexp, args = params, color = "#FF3333", size = 1.5) +
  stat_function(fun = dexp, args = params, color = "#FF9900", size = 5, alpha = 0.3) +
  geom_vline(xintercept = mean(diamonds$price), color="#0033FF", linetype = 2)

print(p)