No need to subset.
I'm assuming your data is in an object called myDataFrame
myDataFrame <- data.frame (
Country = c(rep(letters[1:5],10)),
Manufacturer = c(rep(LETTERS[11:20], 5)),
Volume = c(rep(1:25,2)))
require(ggplot2)
require(tidyverse)
myDataFrame %>%
ggplot ( aes (x = Manufacturer, y = Volume, fill = Manufacturer)) +
geom_col() +
facet_wrap(~Country)