R Markdown
library(readxl)
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr 1.1.4 ✔ readr 2.1.5
## ✔ forcats 1.0.0 ✔ stringr 1.5.1
## ✔ ggplot2 4.0.0 ✔ tibble 3.3.0
## ✔ lubridate 1.9.4 ✔ tidyr 1.3.1
## ✔ purrr 1.1.0
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(pastecs)
##
## Attaching package: 'pastecs'
##
## The following objects are masked from 'package:dplyr':
##
## first, last
##
## The following object is masked from 'package:tidyr':
##
## extract
library(dplyr)
CAFB_SetUp <- read.csv("Capital_Area_Food_Bank_Hunger_Estimates.csv")
CAFB_Report <- CAFB_SetUp[c("TRACT", "F15_FI_RATE", "F15_FI_POP", "F15_LB_NEED", "F15_DISTRIB", "F15_LB_UNME")]
stat.desc(CAFB_Report$F15_LB_UNME, norm = T)
## nbr.val nbr.null nbr.na min max range
## 1.039000e+03 2.800000e+01 0.000000e+00 0.000000e+00 2.908362e+05 2.908362e+05
## sum median mean SE.mean CI.mean.0.95 var
## 5.928876e+07 4.673706e+04 5.706329e+04 1.370855e+03 2.689963e+03 1.952534e+09
## std.dev coef.var skewness skew.2SE kurtosis kurt.2SE
## 4.418749e+04 7.743594e-01 1.252168e+00 8.250695e+00 2.030998e+00 6.697645e+00
## normtest.W normtest.p
## 9.080074e-01 1.522237e-24
print("Food banks report their annual disbursement of food. The CAFB had announced in 2025 they disbursed 64 million pounds of food, yet historically, there has been a notable quantitity of food need going unmet. Unmet need is the subtraction of pounds needed in any given tract versus the pounds disbursed. This difference of food still needed is counted as unment need.")
## [1] "Food banks report their annual disbursement of food. The CAFB had announced in 2025 they disbursed 64 million pounds of food, yet historically, there has been a notable quantitity of food need going unmet. Unmet need is the subtraction of pounds needed in any given tract versus the pounds disbursed. This difference of food still needed is counted as unment need."
summary(CAFB_Report)
## TRACT F15_FI_RATE F15_FI_POP F15_LB_NEED
## Min. : 100 Min. :0.0000 Min. : 0.0 Min. : 0
## 1st Qu.:201802 1st Qu.:0.0470 1st Qu.: 174.7 1st Qu.: 36689
## Median :492400 Median :0.0900 Median : 351.2 Median : 73760
## Mean :512323 Mean :0.1068 Mean : 427.7 Mean : 89816
## 3rd Qu.:800607 3rd Qu.:0.1415 3rd Qu.: 609.1 3rd Qu.:127911
## Max. :920200 Max. :0.4710 Max. :2178.6 Max. :457514
## F15_DISTRIB F15_LB_UNME
## Min. : 0 Min. : 0
## 1st Qu.: 8478 1st Qu.: 23523
## Median : 21884 Median : 46737
## Mean : 32752 Mean : 57063
## 3rd Qu.: 44673 3rd Qu.: 79975
## Max. :243138 Max. :290836
hist(CAFB_Report$F15_LB_UNME,
main = "Lbs of Unment Food Need")
CAFB_Report_Transform <- CAFB_Report |>
mutate(F15_LB_UNME_log = log(F15_LB_UNME))
hist(CAFB_Report_Transform$F15_LB_UNME_log,
main = "Lbs of Unment Food Need")
