#Change path-to-file appropirately
#colClasses is being used here to force charcater type on numeric fips values
regions<-read.csv("path-to-file",colClasses=c("character","factor","factor","factor"))