ugh

library(ggplot2)

food <- read.csv("./food_claims_2212.csv")

ggplot(food, aes(x = time_to_close)) +
  geom_histogram()

library(ggplot2)

food <- read.csv("./food_claims_2212.csv")

ggplot(food, aes(x = location, y = time_to_close)) +
  geom_boxplot()

library(ggplot2)

food <- read.csv("./food_claims_2212.csv")

ggplot(food, aes(x = location, y = time_to_close)) +
  geom_boxplot(outlier.shape = NA)