Reproduce the $count aspect of hist() using another function

Question

So I have this function here

as.tibble(hist(dat[dat<228000],breaks=seq(0,228000,2000),plot=F)$counts) %>% 
  group_by(value) %>% 
  summarise(count =