##### Histogram
ggplot(data = movies, 
       aes(year)) + 
  geom_histogram(binwidth = 1, alpha = 1,
             color = discrete_wes_pal[1],
             fill = discrete_wes_pal[1]) + 
  xlab("Year") + ylab("Number of movies produced") +
  my_theme()

##### Histogram - with groups defined by colours
ggplot(data = movies, 
       aes(year, 
           fill = Genre)) + 
  geom_histogram(binwidth = 1, 
                 alpha = 1) + 
  xlab("Year") + 
  ylab("Number of movies produced") +
  scale_fill_manual(values = discrete_wes_pal) +
  guides(fill = guide_legend(override.aes = list(size = 5),
                               title = "",
                               label.hjust = 0,
                               label.vjust = 0.5)) +
  my_theme()

LS0tCnRpdGxlOiAiSGlzdG9ncmFtcyIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICB0b2M6IGZhbHNlCiAgICBudW1iZXJfc2VjdGlvbnM6IGZhbHNlCiAgICBkZl9wcmludDogcGFnZWQKICAgIGNvZGVfZG93bmxvYWQ6IHRydWUKICAgIGhpZ2hsaWdodGVyOiBudWxsCi0tLQoKYGBge3Igc2V0dXAsIGV2YWw9VFJVRSwgaW5jbHVkZT1GQUxTRSwgZWNobz1GQUxTRSwgZXJyb3I9RkFMU0UsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIGNhY2hlPVRSVUUsIGZpZy5hbGlnbj0nY2VudGVyJywgY29tbWVudD0iIn0KY2hvb3NlQ1JBTm1pcnJvcihncmFwaGljcz1GQUxTRSwgaW5kPTEzMykKc291cmNlKCJzb3VyY2UvcGxvdHMtb3ZlcnZpZXcuUiIpCmBgYApfX18KClBhZ2UgbGFzdCB1cGRhdGVkOiBgciBmb3JtYXQoU3lzLnRpbWUoKSwgJyVkICVCLCAlWScpYAoKXCAgCgojIEV4YW1wbGVzIHsjaGlzdG9ncmFtcyAudGFic2V0fQoKIyMgSGlzdG9ncmFtIHsjaGlzdG9ncmFtfQpgYGB7ciBoaXN0b2dyYW0sIGV2YWw9VFJVRSwgaW5jbHVkZT1UUlVFLCBlY2hvPVRSVUUsIGVycm9yPUZBTFNFLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFLCBjYWNoZT1UUlVFLCBmaWcuYWxpZ249J2NlbnRlcicsIGNvbW1lbnQ9IiJ9CiMjIyMjIEhpc3RvZ3JhbQpnZ3Bsb3QoZGF0YSA9IG1vdmllcywgCiAgICAgICBhZXMoeWVhcikpICsgCiAgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGggPSAxLCBhbHBoYSA9IDEsCiAgICAgICAgICAgICBjb2xvciA9IGRpc2NyZXRlX3dlc19wYWxbMV0sCiAgICAgICAgICAgICBmaWxsID0gZGlzY3JldGVfd2VzX3BhbFsxXSkgKyAKICB4bGFiKCJZZWFyIikgKyB5bGFiKCJOdW1iZXIgb2YgbW92aWVzIHByb2R1Y2VkIikgKwogIG15X3RoZW1lKCkKYGBgCgojIyBIaXN0b2dyYW0gd2l0aCBhIHNpbmdsZSB2YXJpYWJsZSBzaG93biBieSBjb2xvdXIgeyNoaXN0b2dyYW1fZ3JvdXBfY29sb3VyfQpgYGB7ciBoaXN0b2dyYW1fZ3JvdXBfY29sb3VyLCBldmFsPVRSVUUsIGluY2x1ZGU9VFJVRSwgZWNobz1UUlVFLCBlcnJvcj1GQUxTRSwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRSwgY2FjaGU9VFJVRSwgZmlnLmFsaWduPSdjZW50ZXInLCBjb21tZW50PSIifQojIyMjIyBIaXN0b2dyYW0gLSB3aXRoIGdyb3VwcyBkZWZpbmVkIGJ5IGNvbG91cnMKZ2dwbG90KGRhdGEgPSBtb3ZpZXMsIAogICAgICAgYWVzKHllYXIsIAogICAgICAgICAgIGZpbGwgPSBHZW5yZSkpICsgCiAgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGggPSAxLCAKICAgICAgICAgICAgICAgICBhbHBoYSA9IDEpICsgCiAgeGxhYigiWWVhciIpICsgCiAgeWxhYigiTnVtYmVyIG9mIG1vdmllcyBwcm9kdWNlZCIpICsKICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBkaXNjcmV0ZV93ZXNfcGFsKSArCiAgZ3VpZGVzKGZpbGwgPSBndWlkZV9sZWdlbmQob3ZlcnJpZGUuYWVzID0gbGlzdChzaXplID0gNSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICIiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWwuaGp1c3QgPSAwLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWwudmp1c3QgPSAwLjUpKSArCiAgbXlfdGhlbWUoKQpgYGAK