Skip to content

Latest commit

 

History

History
51 lines (36 loc) · 2.06 KB

FastFoodOverview.md

File metadata and controls

51 lines (36 loc) · 2.06 KB

Overview

author: Luke Shulman date: 12/18/2016 autosize: true

Fast Food Data

The USDA makes available a Food Environment Atlas containing almost 70 different variables on food access in US counties.

The data has also been linked to Socio Economic data from the US Census and other sources.

It can be found at USDA Food Atlas

Experiment

There has been tremendous attention paid to communities that only have access to fast food restaurants.

We will look at two variables "Poverty Rate", and "Median Household Income" to see if they have an effect on the number of Fast Food Restaurant penetration.

Prepping the data

Data for this pitch has been included in the github repository. It is taken from a downloadable excel from the USDA.

restaurantbase <- read.csv("./data/FoodAtlasRestaurantData.csv", stringsAsFactors = FALSE)
countysocial <- read.csv("./data/SocioEcoCounty.csv", stringsAsFactors = FALSE)
limitRestaurant <- restaurantbase[c("FIPS","State", "County","FSRPTH07", "PC_FFRSALES07")]
fullresult <- merge(limitRestaurant, countysocial, ID="FIPS" )

Results

The full application is available as a shiny app. This plot shows the results for California and Washington state.

It shows no correlation.
plot of chunk unnamed-chunk-2