Create Tile_plot.R