library(readxl)
insitu <- read_excel("insitu.xls")
plot(insitu$TempC, insitu$O2mgL, xlab = "Temperature in C", 
   ylab = "oxygen conc. in mg/L", pch = 19, lwd=1.5, cex=1.5)