Skip to content

Instantly share code, notes, and snippets.

@cavedave
Created March 1, 2016 21:53
Show Gist options
  • Save cavedave/16a9581ad0b9c2cba191 to your computer and use it in GitHub Desktop.
Save cavedave/16a9581ad0b9c2cba191 to your computer and use it in GitHub Desktop.
#Download data from http://www.met.ie/climate-request/
# select the ddhm and the date columns.
data =read.csv("Dub2014.csv", header=TRUE)
newdata <- na.omit(data)
ggplot(aes(ddhm)) +
geom_histogram(binwidth = 10, colour = "blue")+
theme_minimal() +
coord_polar(start = 0) +
scale_fill_brewer() + ylab("Wind Direction")+ xlab("ddhm: - Mean Wind Direction")+
scale_y_continuous(breaks = NULL) +
scale_x_continuous(expand = c(0, 0),
breaks = c(360,80,180,280),
labels = c("North", "East", "South", "West"))+
ggtitle("Wind Direction Dublin Airport")
ggsave("DublinWind.png")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment