Description: Agency programs affiliated with the Food Bank of Central and Eastern NC
File: agency_programs.csv
Source: Food Bank of Central and Eastern NC
agencies <- read.csv("agency_programs.csv", stringsAsFactors = FALSE)
names(agencies)
## [1] "name" "address" "city" "state"
## [5] "zip_code" "program_code" "lat" "lng"
## [9] "fips_county"
str(agencies)
## 'data.frame': 940 obs. of 9 variables:
## $ name : chr "Care and Share, Inc." "Lutheran Family Services" "Catholic Parish Outreach" "Christian Fellowship Homes" ...
## $ address : chr "110 Industrial Drive" "3257 Lake Woodard Drive" "2013 North Raleigh Blvd." "301 South Grace St" ...
## $ city : chr "Louisburg" "Raleigh" "Raleigh" "Rocky Mount" ...
## $ state : chr "NC" "NC" "NC" "NC" ...
## $ zip_code : chr "27549" "27604" "27604" "27804" ...
## $ program_code: chr "FOODPANTRY" "GROUP HOME" "FOODPANTRY" "GROUP HOME" ...
## $ lat : num 36.1 35.8 35.8 35.9 35.6 ...
## $ lng : num -78.3 -78.6 -78.6 -77.8 -78.5 ...
## $ fips_county : int 37069 37183 37183 37127 37101 NA 37183 37063 37077 37127 ...
local_agencies <- subset(agencies, (fips_county == 37183) |(fips_county == 37063) |(fips_county == 37135)|(fips_county == 37101))
table(local_agencies$program_code)
##
## ADULT DAY AFTER SCH BP DAY CARE DIRECT DST DISABLED
## 1 16 2 4 2 1
## ELDERLY NU FOODPANTRY GROUP HOME MOBILE FP OTHER REHAB
## 9 170 21 2 20 2
## SCHOOL SENIOR OFF SHELTER SHELTER WK SOUP KITCH SUPPLEMENT
## 2 2 10 1 11 4
Contributor: Charlie Hale