Added R case using ggplot2 with facet_wrap