## https://www.gislounge.com/mapping-county-demographic-data-in-r/ rm(list=ls()) library(choroplethr) library(choroplethrMaps) main <- function() { savedCancerFile <- "/tmp/cancerData" load(savedCancerFile) d <- data[,c("FIPS","rate.male")] colnames(d) <- c("region", "value") print(county_choropleth(d)) print("The program has ended.") d } d <- main()