Creating side by side histogram in R

Question

I am trying to create a side by side histogram like this one https://www.r-bloggers.com/2011/06/example-8-40-side-by-side-histograms/ for the following data

 rang