Median Prices of Houses in Victoria - 2011

library(ggplot2) #Required
library(dplyr) #Data wrangling
library(tidyr) #Data wrangling
library(rgeos) #Mapping
library(maptools) #Mapping
library(ggmap) #Mapping
library(broom) #Mapping
library(sqldf) #SQL

vic.lga.shp <- readShapeSpatial("~/Downloads/vmlite_lga_cm/vmlite_lga_cm.shp")

use rgdal::readOGR or sf::st_readuse rgdal::readOGR or sf::st_read

lga_profiles_data_2011_pt1 <- read.csv("~/Downloads//lga_profiles_data_2011_pt1.csv")

lga.shp.f <- tidy(vic.lga.shp, region = "lga_name")
lga.shp.f$lga_name <-lga.shp.f$id

merge.lga.profiles<-merge(lga.shp.f, lga_profiles_data_2011_pt1, 
                          by="lga_name", all.x=TRUE)

choro.data.frame<-merge.lga.profiles[order(merge.lga.profiles$order), ] 
p1 <- ggplot(data = choro.data.frame,
             aes(x = long, y = lat, group = group, 
                 fill = median_house_price))

p1 + geom_polygon(color = "white", size = 0.25) + 
  coord_map() +
  scale_fill_distiller(name = "Median of House Prices",
                        guide = "legend",
                    palette = "YlOrRd", direction = 1) +
  theme_nothing(legend = TRUE) +
  labs(title="House Prices in Victoria - 2011")