Bagan batang faceted di r

ggplot(data, aes(x = x)) +
	geom_bar()
    facet_wrap(~y) #Could be read as broken down by "y"
Successful Salmon