одни и те же участки для каждой переменной вместе

library(ggplot2)
library(dplyr)
gather(interested_var_cat) %>% ggplot(aes(value)) + geom_bar(col ="dark red", fill = "dark red", alpha = 0.7) + facet_wrap("key", scales = "free")
Diana H