6  ChapterTitle

food <- read.csv("data/Food.csv")
head(food)
  Year Neighborhood.Tabulation.Area.NTA.
1 2025                            BX0401
2 2025                            BX0303
3 2025                            MN1102
4 2025                            BX0602
5 2025                            BK1204
6 2025                            BK0503
  Neighborhood.Tabulation.Area..NTA..Name Supply.Gap..lbs..
1             Concourse-Concourse Village -102,142.62426294
2                       Crotona Park East -333,492.64867191
3                     East Harlem (North)  527,499.52610583
4                                 Tremont -113,652.81465869
5                 Mapleton-Midwood (West) 451,455.520860002
6                  East New York-New Lots -506,273.12917545
  Food.Insecure.Percentage Unemployment.Rate Vulnerable.Population.Score
1                   26.29%            10.54%                        0.57
2                   27.24%            13.09%                        0.55
3                   26.68%            10.56%                        0.47
4                   28.96%            12.14%                        0.53
5                   16.87%             5.65%                        0.61
6                   20.46%            11.66%                        0.51
  Weighted.Score Rank
1       5.133096  161
2       5.628794  141
3       5.908840  121
4       5.711963  134
5       5.731608  132
6       5.110412  162