8  Dataset

library(tidyverse)

NFH_data <- read_csv("https://data.cityofnewyork.us/resource/r3dx-pew9.csv")

head(NFH_data)

# A tibble: 6 × 52
  year_published  puma borough neighborhoods        cd     join nyc_poverty_rate
           <dbl> <dbl> <chr>   <chr>                <chr> <dbl>            <dbl>
1           2020  3701 Bronx   Riverdale, Fieldsto… BX C…  3701            0.152
2           2020  3701 Bronx   Riverdale, Fieldsto… BX C…  3701            0.152
3           2020  3701 Bronx   Riverdale, Fieldsto… BX C…  3701            0.152
4           2020  3701 Bronx   Riverdale, Fieldsto… BX C…  3701            0.152
5           2020  3701 Bronx   Riverdale, Fieldsto… BX C…  3701            0.152
6           2020  3701 Bronx   Riverdale, Fieldsto… BX C…  3701            0.152
# ℹ 45 more variables: median_income <dbl>, perc_white <dbl>, perc_black <dbl>,
#   perc_asian <dbl>, perc_other <dbl>, perc_hispanic <dbl>, goal <chr>,
#   goalname <chr>, goalfullname <chr>, totaloutcome <dbl>, goalrank <chr>,
#   indexscore <dbl>, scorerank <chr>, ind1 <chr>, ind1outcome <chr>,
#   ind1rank <dbl>, ind1definition <chr>, ind2 <chr>, ind2outcome <dbl>,
#   ind2rank <dbl>, ind2definition <chr>, ind3 <chr>, ind3outcome <dbl>,
#   ind3rank <dbl>, ind3definition <chr>, ind4 <chr>, ind4outcome <chr>, …