Current Seawater Status at the Marine Science Center, Nahant, MA.
Seawater status:
# Filename: open_MSC_temps_file.R # # Author: Luke Miller Jun 5, 2011 ############################################################################### #Open the csv data file df = read.csv(file.choose(), colClasses = c('character','numeric','numeric','numeric')) #Next convert the time stamps to POSIXct time values df$TimeEST = as.POSIXct(df$TimeEST, format = "%m/%d/%Y %H:%M" ) #Plot the water temperatures plot(df$TimeEST, df$Ambient_Water, type = 'l', col = 'blue', xlab = 'Date', ylab = expression(paste('Water Temperature, ', degree,'C')), las = 1) #Plot the air temperature (this will overwrite the previous plot if you run #it immediately. plot(df$TimeEST, df$Ambient_Air, type = 'l', col = 'red', xlab = 'Date', ylab = expression(paste('Air Temperature, ', degree, 'C')), las = 1)