zoom$cherry <- grepl("cherry", zoom$spc_common)
zoom$dead <-zoom$status == "Dead"
table(zoom$hood, zoom$dead)
table(zoom$hood, zoom$cherry)
table(zoom$hood, zoom$brch_shoe)