Added code to identify datapoints on click
Removed 1st header cell to name the rows in R
Removed State cell from header