R code to plot all episodes one row