Графики плотности вероятностей  ggplot 

set.seed(1234)
df1 <- data.frame(value =round(c(rnorm(200,mean=100,sd=7))))
df <- data.frame(value =round(c(rnorm(200,mean=102,sd=6))))
# create density plot with desired colours
ggplot(df, aes(x=value)) + geom_density(fill="#77bd89",
                                        color="#1f6e34",
                                        alpha=0.9) +
  geom_density(data = df1,fill='red',alpha=0.6) + 
  
  theme(panel.background = element_rect(fill = "grey70")) +
  ggtitle("Графики плотности вероятностей")