using grid.arrange https://cran.r-project.org/web/packages/gridExtra/vignettes/arrangeGrob.html set and mirror axis limits: ``` scale_y_continuous( breaks=seq(glob$PriceMin, glob$PriceMax, round(glob$StdDev * .5,2)), limits = c(glob$PriceMin, glob$PriceMax) ) + ``` how to loop through rows of a column ``` for (i in dim1) { for (j in i) { print(j); } } ``` build a list of plots and use grid.arrange ``` do.call(grid.arrange,plot_list) ``` re-sort a dataframe and print each row of a column ``` dim1 <- dim1[order(dim1$list),]; for (i in dim1) { for (j in i) { print(j); } } ```