If your data are in a data frame named DF, a sketch of the code using ggplot for plotting could be like the following.
library(dplyr)
library(ggplot2)
Companies <- unique(DF$Company)
Grp1 <- Companies[1:50]
Grp2 <- Companies[51:100]
Grp3 <- Companies[101:149]
DF <- DF %>% mutate(Grp = case_when(
Company %in% Grp1 ~ 1,
Company %in% Grp2 ~ 2,
Company %in% Grp3 ~ 3,
))
ggplot(DF, aes(...)) + geom_col() +
facet_wrap(~Grp)