datasnack-31-centre-art-expo.R

library(ggplot2)
library(magrittr)
library(ggmap)
cotes <- read.csv("pack.master.cotes-darmor.artscentre.csv", stringsAsFactors = FALSE)[,1:3]
fin <- read.csv("pack.master.finistere.artscentre.csv", stringsAsFactors = FALSE)[,1:3]
ill <- read.csv("pack.master.ille-et-vilaine.artscentre.csv", stringsAsFactors = FALSE)[,1:3]
mor <- read.csv("pack.master.morbihan.artscentre.csv", stringsAsFactors = FALSE)[,1:3]
cotes$dep <- "Côtes d'Armor"
fin$dep <- "Finistère"
ill$dep <- "Ille-et-Vilaine"
mor$dep <- "Morbihan"
bret <- rbind(cotes, fin, ill, mor)
palette <- c("#973232", "#1E5B5B", "#6D8D2F", "#287928", "#E18C8C", "#548787", "#B8D283", "#70B470", "#B75353", "#326E6E", "#8CAA4E", "#439243", "#711515", "#0D4444", "#4D6914", "#115A11", "#490101", "#012C2C", "#2E4401", "#013A01")
map <- ggmap::get_openstreetmap(bbox = c(left = -4.8, bottom = 47.3, right = -1, top = 48.9))
ggmap(map)  +
  geom_point(data = bret, aes(x = as.numeric(lng), y = as.numeric(lat), col = dep), size = 4) +
  scale_color_manual(values = palette) + 
  ggtitle("Centres d'art / d'exposition en Bretagne") +
  xlab("") +
  ylab("") +
  labs(color = "Département") + 
  theme(title=element_text(size=18),
        plot.title=element_text(margin=margin(0,0,20,0), size=18),
        axis.text.x=element_blank(),
        axis.text.y=element_blank(),
        axis.ticks=element_blank(),
        axis.title.x=element_blank())