##### Density plot
ggplot(data = movies, 
       aes(x = rating)) + 
  ylab("Density of Movie Rating") + 
  xlab("Score (out of 10)") +
  geom_density(color = discrete_wes_pal[1], 
               fill = discrete_wes_pal[1], 
               alpha = 1) + 
  my_theme()

##### Density plot - with multiple plots for each group
ggplot(data = movies, 
       aes(x = length, fill = Genre, color = Genre)) +
  geom_density(alpha = 1) +
  xlim(0,300) + 
  facet_wrap(~ Genre, ncol = 4) +
  ylab("Density of length of film)") +
  xlab("Length of film (minutes)") +
  scale_fill_manual(values = discrete_wes_pal) +
  scale_color_manual(values = discrete_wes_pal) +
  guides(fill = guide_legend(override.aes = list(size = 5),
                               title = "",
                               label.hjust = 0,
                               label.vjust = 0.5),
         color = FALSE) +
  my_theme() +
  theme(
    strip.text.x = element_blank()
    )

LS0tCnRpdGxlOiAiRGVuc2l0eSBwbG90cyIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IGZhbHNlCiAgICBudW1iZXJfc2VjdGlvbnM6IGZhbHNlCiAgICBkZl9wcmludDogcGFnZWQKICAgIGNvZGVfZG93bmxvYWQ6IHRydWUKICAgIGhpZ2hsaWdodGVyOiBudWxsCi0tLQoKYGBge3Igc2V0dXAsIGV2YWw9VFJVRSwgaW5jbHVkZT1GQUxTRSwgZWNobz1GQUxTRSwgZXJyb3I9RkFMU0UsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIGNhY2hlPVRSVUUsIGZpZy5hbGlnbj0nY2VudGVyJywgY29tbWVudD0iIn0KY2hvb3NlQ1JBTm1pcnJvcihncmFwaGljcz1GQUxTRSwgaW5kPTEzMykKc291cmNlKCJzb3VyY2UvcGxvdHMtb3ZlcnZpZXcuUiIpCmBgYApfX18KClBhZ2UgbGFzdCB1cGRhdGVkOiBgciBmb3JtYXQoU3lzLnRpbWUoKSwgJyVkICVCLCAlWScpYAoKXCAgCgojIEV4YW1wbGVzIHsjZGVuc2l0eV9wbG90cyAudGFic2V0fQoKIyMgRGVuc2l0eSBwbG90IHsjZGVuc2l0eX0KYGBge3IgZGVuc2l0eSwgZXZhbD1UUlVFLCBpbmNsdWRlPVRSVUUsIGVjaG89VFJVRSwgZXJyb3I9RkFMU0UsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIGNhY2hlPVRSVUUsIGZpZy5hbGlnbj0nY2VudGVyJywgY29tbWVudD0iIn0KIyMjIyMgRGVuc2l0eSBwbG90CmdncGxvdChkYXRhID0gbW92aWVzLCAKICAgICAgIGFlcyh4ID0gcmF0aW5nKSkgKyAKICB5bGFiKCJEZW5zaXR5IG9mIE1vdmllIFJhdGluZyIpICsgCiAgeGxhYigiU2NvcmUgKG91dCBvZiAxMCkiKSArCiAgZ2VvbV9kZW5zaXR5KGNvbG9yID0gZGlzY3JldGVfd2VzX3BhbFsxXSwgCiAgICAgICAgICAgICAgIGZpbGwgPSBkaXNjcmV0ZV93ZXNfcGFsWzFdLCAKICAgICAgICAgICAgICAgYWxwaGEgPSAxKSArIAogIG15X3RoZW1lKCkKYGBgCgojIyBEZW5zaXR5IHBsb3QgLSBmYWNldF93cmFwKCkgeyNkZW5zaXR5X2ZhY2V0X3dyYXB9CmBgYHtyIGRlbnNpdHlfZmFjZXRfd3JhcCwgZXZhbD1UUlVFLCBpbmNsdWRlPVRSVUUsIGVjaG89VFJVRSwgZXJyb3I9RkFMU0UsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIGNhY2hlPVRSVUUsIGZpZy5hbGlnbj0nY2VudGVyJywgY29tbWVudD0iIn0KIyMjIyMgRGVuc2l0eSBwbG90IC0gd2l0aCBtdWx0aXBsZSBwbG90cyBmb3IgZWFjaCBncm91cApnZ3Bsb3QoZGF0YSA9IG1vdmllcywgCiAgICAgICBhZXMoeCA9IGxlbmd0aCwgZmlsbCA9IEdlbnJlLCBjb2xvciA9IEdlbnJlKSkgKwogIGdlb21fZGVuc2l0eShhbHBoYSA9IDEpICsKICB4bGltKDAsMzAwKSArIAogIGZhY2V0X3dyYXAofiBHZW5yZSwgbmNvbCA9IDQpICsKICB5bGFiKCJEZW5zaXR5IG9mIGxlbmd0aCBvZiBmaWxtKSIpICsKICB4bGFiKCJMZW5ndGggb2YgZmlsbSAobWludXRlcykiKSArCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gZGlzY3JldGVfd2VzX3BhbCkgKwogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBkaXNjcmV0ZV93ZXNfcGFsKSArCiAgZ3VpZGVzKGZpbGwgPSBndWlkZV9sZWdlbmQob3ZlcnJpZGUuYWVzID0gbGlzdChzaXplID0gNSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWwuaGp1c3QgPSAwLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWwudmp1c3QgPSAwLjUpLAogICAgICAgICBjb2xvciA9IEZBTFNFKSArCiAgbXlfdGhlbWUoKSArCiAgdGhlbWUoCiAgICBzdHJpcC50ZXh0LnggPSBlbGVtZW50X2JsYW5rKCkKICAgICkKYGBgCg==