NYC Tree Census 2015

trees.R

require("ggplot2")
require("viridis")
require("colorBrewer")
require("randomcoloR")

trees <- read.csv("trees.csv")
trees$health <- factor(trees$health)
trees$spc_common <- factor(trees$spc_common)

colours <- sample(grDevices::colors()[grep('gr(a|e)y', grDevices::colors(), invert = T)], length(trees$spc_common))

ggplot(data = trees, 
       aes(x = Latitude, y = longitude)) + 
  geom_point(size = 0.5, alpha = 0.4, aes(color = spc_common)) + 
  scale_color_manual(values = colours) +
  theme(axis.line = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.border = element_blank(),
        panel.background = element_blank()) +
  ggtitle("2015 Tree Census of New York") +
  xlab("Latitude") + ylab("Longitude") +
  ggsave("tree_census_2015_legend.png", 
         width = 100,
         heigh = 100,
         units = "cm",
         dpi = "retina")