In philmikejones/heateat: Analysis of 'heat or eat' data in England

require("knitr")
knitr::opts_chunk$set(
    echo = FALSE,
    message = FALSE,
    warning = TRUE
)
opts_knit$set(root.dir = normalizePath("../"))
old_digits <- options()[["digits"]]
options(digits = 2)

library("heateat")
library("ggplot2")
devtools::source_gist("d1f0aa148ac9fd1cf4b3")

Fuel poverty layers

ggplot() +
  geom_polygon(data = lsoa_f, aes(long, lat, group = group,
                                                    fill = per_fph),
                        colour = NA) +
  geom_polygon(data = lads_f, aes(long, lat, group = group),
                        fill = "transparent", colour = "black") +
  coord_equal() + mapl

options(digits = old_digits)

philmikejones/heateat documentation built on May 25, 2019, 5:06 a.m.