identify median across income brackets using frequency table in R

Question

I have data that looks like this:

dat <- data.frame(county_id = c("A", "A", "A", "A", "A", "B",