How to make multiple bar graphs for factors in R

I would love to make a figure like what I have for my numeric features

hist(df[ , purrr::map_lgl(df, is.numeric)])

enter image description here

If I try to do the same thing with factors

hist(df[ , purrr::map_lgl(df[,interest_factors], is.factor)])

I get

enter image description here

Any suggestions? I just want to quickly view them