This R script creates a US map of county-level socioeconomic disadvantage