library(magrittr)
library(ggplot2)
library(ggthemes)

read.csv(textConnection("Age, Cases
<20,0.5
20-34,6
35-44,8.9
45-54,16.9
55-64,22.1
65-74,21.1
75-84,16.8
>84,7.7")) %>%
  ggplot(aes(Age,Cases)) +
  geom_bar(size=3, stat="identity") +
  theme_economist() +
  ylab("% Cases") +
  ggtitle("Melanoma New Cases by Age Group, US 2008-12 (SEER)")

ggsave("~/Allalaadimised/melanoma.png")
## Saving 7 x 5 in image