Food_Waste_By_Group

Group One (OLDER ADULTS):

n = 30

Age

Over_Sixty <- FOOD_WASTE_GROUPS %>%
  select(Age)%>%
  filter(Age == "60+")
print(Over_Sixty)
(28/30)*100

#TOTAL AMOUNT OF RESPONDENTS AGED 60 AND OVER: 28
#PERCENTAGE OF RESPONDENTS AGED 60 AND OVER: 93.3%

FiftyOne_To_Sixty <- FOOD_WASTE_GROUPS %>%
  select(Age)%>%
  filter(Age == "51-60")
print(FiftyOne_To_Sixty)
(2/30)*100

#TOTAL AMOUNT OF RESPONDENTS AGED 60 AND OVER: 2
#PERCENTAGE OF RESPONDENTS AGED 60 AND OVER: 6.67%%

Gender

All respondents were female.

Race

Black_African_American <- FOOD_WASTE_GROUPS %>%
  select(Race)%>%
  filter(Race == "Black")
print(Black_African_American)
(27/30)*100

#TOTAL AMOUNT OF BLACK OR AFRICAN AMERICAN RESPONDENTS: 27
#PERCENTAGE OF BLACK OR AFRICAN AMERICAN RESPONDENTS: 90%

Other_Mixed_Race <- FOOD_WASTE_GROUPS %>%
  select(Race)%>%
  filter(Race == "Other")
print(Other_Mixed_Race)
(2/30)*100

#TOTAL AMOUNT OF OTHER OR MIXED RACE RESPONDENTS: 2
#PERCENTAGE OF BLACK OR AFRICAN AMERICAN RESPONDENTS: 6.67%

White_Group_One <- FOOD_WASTE_GROUPS %>%
  select(Race)%>%
  filter(Race == "White")
print(White_Group_One)
(1/30)*100

#TOTAL AMOUNT OF WHITE RESPONDENTS: 1
#PERCENTAGE OF WHTIE RESPONDENTS: 3.33%

NUMBER OF HOUSE OCCUPANTS INCLUDING THE RESPONDENT

ranges between 1 to 6

average number of house occupants including the respondent is (2.26 or 2)

One_House_Occupant_Group_One <- FOOD_WASTE_GROUPS %>%
  select(HowManyLiveYourHouseholdIncludingYourself) %>%
  filter(HowManyLiveYourHouseholdIncludingYourself == 1)
print(One_House_Occupant_Group_One)
(12/30)*100

#TOTAL AMOUNT OF REPSONDENTS WITH 1 HOUSEHOLD OCCUPANT: 12
#PERCENTAGE OF RESPONDENTS WITH 1 HOUSEHOLD OCCUPANT: 40%

Two_House_Occupants_Group_One <- FOOD_WASTE_GROUPS %>%
  select(HowManyLiveYourHouseholdIncludingYourself) %>%
  filter(HowManyLiveYourHouseholdIncludingYourself == 2)
print(Two_House_Occupants_Group_One)
(12/30)*100

#TOTAL AMOUNT OF REPSONDENTS WITH 2 HOUSEHOLD OCCUPANTS: 12
#PERCENTAGE OF RESPONDENTS WITH 2 HOUSEHOLD OCCUPANTS: 40%

Three_House_Occupants_Group_One <- FOOD_WASTE_GROUPS %>%
  select(HowManyLiveYourHouseholdIncludingYourself)%>%
  filter(HowManyLiveYourHouseholdIncludingYourself == 3)
print(Three_House_Occupants_Group_One)
(1/30)*100

#TOTAL AMOUNT OF REPSONDENTS WITH 3 HOUSEHOLD OCCUPANTS: 1
#PERCENTAGE OF RESPONDENTS WITH 3 HOUSEHOLD OCCUPANTS: 3.33%

Five_House_Occupants_Group_One <- FOOD_WASTE_GROUPS %>%
  select(HowManyLiveYourHouseholdIncludingYourself) %>%
  filter(HowManyLiveYourHouseholdIncludingYourself == 5)
print(Five_House_Occupants_Group_One)
(1/30)*100


#TOTAL AMOUNT OF REPSONDENTS WITH 5 HOUSEHOLD OCCUPANTS: 1
#PERCENTAGE OF RESPONDENTS WITH 5 HOUSEHOLD OCCUPANTS: 3.33%

Six_House_Occupants_Group_One <- FOOD_WASTE_GROUPS %>%
  select(HowManyLiveYourHouseholdIncludingYourself)%>%
  filter(HowManyLiveYourHouseholdIncludingYourself == 6)
print(Six_House_Occupants_Group_One)
(4/30)*100

#TOTAL AMOUNT OF REPSONDENTS WITH 6 HOUSEHOLD OCCUPANTS: 4
#PERCENTAGE OF RESPONDENTS WITH 6 HOUSEHOLD OCCUPANTS: 13.3%

NUMBER OF HOUSE OCCUPANTS AGED 17 OR YOUNGER

range is between 0 and 2

Zero_17Younger_Group_One <- FOOD_WASTE_GROUPS %>%
  select(HowManyHouseholdMembersAge17OrYounger) %>%
  filter(HowManyHouseholdMembersAge17OrYounger == 0)
print(Zero_17Younger_Group_One)
(23/30)*100

#TOTAL AMOUNT OF REPSONDENTS WITH 0 HOUSEHOLD OCCUPANTS 17 OR YOUNGER: 23
#PERCENTAGE OF RESPONDENTS WITH 0 HOUSEHOLD OCCUPANTS 17 OR YOUNGER: 76.7%

One_17Younger_Group_One <- FOOD_WASTE_GROUPS %>%
  select(HowManyHouseholdMembersAge17OrYounger)%>%
  filter(HowManyHouseholdMembersAge17OrYounger == 1)
print(One_17Younger_Group_One)
(5/30)*100

#TOTAL AMOUNT OF REPSONDENTS WITH 1 HOUSEHOLD OCCUPANTS 17 OR YOUNGER: 5
#PERCENTAGE OF RESPONDENTS WITH 1 HOUSEHOLD OCCUPANTS 17 OR YOUNGER: 16.7%

Two_17Younger_Group_Two <- FOOD_WASTE_GROUPS %>%
  select(HowManyHouseholdMembersAge17OrYounger)%>%
  filter(HowManyHouseholdMembersAge17OrYounger == 2)
print(Two_17Younger_Group_Two)
(2/30)*100

#TOTAL AMOUNT OF REPSONDENTS WITH 2 HOUSEHOLD OCCUPANTS 17 OR YOUNGER: 2
#PERCENTAGE OF RESPONDENTS WITH 2 HOUSEHOLD OCCUPANTS 17 OR YOUNGER: 6.67%

MARITAL STATUS

Married_Group_One <- FOOD_WASTE_GROUPS%>%
  select(MaritalStatus)%>%
  filter(MaritalStatus == "Married")
print(Married_Group_One)
(10/30)*100

#TOTAL AMOUNT OF MARRIED REPSONDENTS: 10
#PERCENTAGE OF MARRIED RESPONDENTS: 33.3%

Divorced_Group_One <- FOOD_WASTE_GROUPS %>%
  select(MaritalStatus)%>%
  filter(MaritalStatus == "Divorced")
print(Divorced_Group_One)
(3/30)*100

#TOTAL AMOUNT OF DIVORCED REPSONDENTS: 3
#PERCENTAGE OF DIVORCED RESPONDENTS: 10%

Widowed_Group_One <- FOOD_WASTE_GROUPS %>%
  select(MaritalStatus)%>%
  filter(MaritalStatus == "Widowed")
print(Widowed_Group_One)
(5/30)*100

#TOTAL AMOUNT OF WIDOWED REPSONDENTS: 5
#PERCENTAGE OF WIDOWED RESPONDENTS: 16.7%

Single_Group_One <- FOOD_WASTE_GROUPS %>%
  select(MaritalStatus)%>%
  filter(MaritalStatus == "Single")
print(Single_Group_One)
(12/30)*100


#TOTAL AMOUNT OF WIDOWED REPSONDENTS: 12
#PERCENTAGE OF WIDOWED RESPONDENTS: 40%

ZIPCODES

• 20001 -> 1 respondent; 3.33%

• 20018 -> 1 respondent; 3.33%

• 20019 -> 9 respondents; 30%

• 20721 -> 2 respondents; 6.67%

• 20735 –> 3 respondents; 10%

• 20743 –> 2 respondents; 6.67%

• 20744 –> 2 respondents; 6.67%

• 20747 –> 2 respondents ; 6.67%

• 20748 –> 1 respondent; 3.33%

• 20758 –> 1 respondent; 3.33%

• 20774 –> 2 respondents; 6.67%

• 20782 –> 2 respondents; 6.67%

• 20784 –> 1 respondent; 3.33%

• 20850 –> 1 respondent; 3.33%

Annual Household Income

SeventyFiveK_99K_Group_One <- FOOD_WASTE_GROUPS %>%
  select(AnnualHouseholdIncome)%>%
  filter(AnnualHouseholdIncome == "$75,000-$99,999")
print(SeventyFiveK_99K_Group_One)
(3/30)*100

#TOTAL AMOUNT OF RESPONDENTS WITH AN INCOME OF $75K - $99.9K: 3
#PERCENTAGE OF RESPONDENTS WITH AN INCOME OF $75K - $99.9K: 10%

FiftyK_74k_Group_One <- FOOD_WASTE_GROUPS %>%
  select(AnnualHouseholdIncome)%>%
  filter(AnnualHouseholdIncome == "$50,000-$74,999")
print(FiftyK_74k_Group_One)
(10/30)*100

#TOTAL AMOUNT OF RESPONDENTS WITH AN INCOME OF $50K - $74.9K: 10
#PERCENTAGE OF RESPONDENTS WITH AN INCOME OF $50K - $74.9K: 33.3%

ThirtyFiveK_49k_Group_One <- FOOD_WASTE_GROUPS %>%
  select(AnnualHouseholdIncome) %>%
  filter(AnnualHouseholdIncome == "$35,000-$49,999")
print(ThirtyFiveK_49k_Group_One)
(5/30)*100

#TOTAL AMOUNT OF RESPONDENTS WITH AN INCOME OF $35K - $49.9K: 5
#PERCENTAGE OF RESPONDENTS WITH AN INCOME OF $35K - $49.9K: 16.7%

TwentyFiveK_34K_Group_One <- FOOD_WASTE_GROUPS %>%
  select(AnnualHouseholdIncome)%>%
  filter(AnnualHouseholdIncome == "$25,000-$34,999")
print(TwentyFiveK_34K_Group_One)
(1/30)*100

#TOTAL AMOUNT OF RESPONDENTS WITH AN INCOME OF $25K - 34.9K: 1
#PERCENTAGE OF RESPONDENTS WITH AN INCOME OF $25K - $34.9K: 3.33%

OneHundredFiftyK_199K_Group_One <- FOOD_WASTE_GROUPS%>%
  select(AnnualHouseholdIncome)%>%
  filter(AnnualHouseholdIncome == "$150,000-$199,999")
print(OneHundredFiftyK_199K_Group_One)
(4/30)*100

#TOTAL AMOUNT OF RESPONDENTS WITH AN INCOME OF $150K - $199.9K: 1
#PERCENTAGE OF RESPONDENTS WITH AN INCOME OF $150K - $199.9K: 13.33%

FifteenK_24k_Group_One <- FOOD_WASTE_GROUPS %>%
  select(AnnualHouseholdIncome) %>% 
  filter(AnnualHouseholdIncome == "$15,000-$24,999")
print(FifteenK_24k_Group_One)
(2/30)*100

#TOTAL AMOUNT OF RESPONDENTS WITH AN INCOME OF $15K - $24.9K: 2
#PERCENTAGE OF RESPONDENTS WITH AN INCOME OF $15K - $24.9K: 6.67%

OneHundredK_149k_Group_One <- FOOD_WASTE_GROUPS %>%
  select(AnnualHouseholdIncome)%>%
  filter(AnnualHouseholdIncome == "$100,000-$149,999")
print(OneHundredK_149k_Group_One)
(2/30)*100

#TOTAL AMOUNT OF RESPONDENTS WITH AN INCOME OF $100K - $149.9K: 2
#PERCENTAGE OF RESPONDENTS WITH AN INCOME OF $100K - $149.9k: 6.67%

NAIncome <- FOOD_WASTE_GROUPS %>%
  select(AnnualHouseholdIncome)%>%
  filter(is.na(AnnualHouseholdIncome))
print(NAIncome)
(3/30)*100

#TOTAL AMOUNT OF REPSONDENTS WHO DID NOT REPORT THEIR INCOME: 3
#PERCENTAGE OF RESPONDENTS WHO DID NOT REPORT THEIR INCOME: 10%

FOOD ASSISTANCE PROGRAMS

• None of the programs –> 21 respondents; 70%

  • 1 respondent does not use any of the listed programs, but does receive “In-person Food Benefit Assistance Sessions”

• Other programs –> 4 respondents; 13.3%

• SNAP –> 2 respondents; 6.67%

  • 1 respondent uses SNAP, but is also receiving “Online Food Benefit Assistance Sessions”