(food1 <- data.frame(
stringsAsFactors = FALSE,
locationname = c("Dhaka","Dhaka","Chittagong",
"Rajshahi","Chittagong","Chittagong","Rajshahi"),
foodreceived = c("Yes", "Yes", "Yes", "Yes", "No", "Yes", "No")
))
library(tidyverse)
food1 %>%
group_by_all() %>%
count() %>%
pivot_wider(values_from = "n",
names_from="foodreceived")