Modify comments throughout
Create a SpatialPixelsDataFrame from the resampled data
Create a data frame for plotting in ggplot
Plot the grid using ggplot