R/figure.timeseries.snowcrab.habitat.temperatures.r

In jae0/snowcrab: Snow crab assessment suite for aegis* and associated projects.

  figure.timeseries.snowcrab.habitat.temperatures = function(p) {
        

    td = bio.snowcrab::interpolation.db( p=p, DS="habitat.temperatures" )
    
    td$t = td$temperature
    td$t.sd = td$temperature.sd

    areas = c("cfa4x", "cfasouth", "cfanorth" )
    regions = c("4X", "S-ENS", "N-ENS")
    td$region = factor(td$region, levels=areas, labels=regions)
    td$ubound = td$t + td$t.sd 
    td$lbound = td$t - td$t.sd 
    td = td[is.finite(td$t) ,]
    td = td[order(td$region,td$yr),]
    xlim=range(td$yr); xlim[1]=xlim[1]-0.5; xlim[2]=xlim[2]+0.5
    ylim= range( c(td$t, td$ubound, td$lbound)  ); ylim[1]=ylim[1]-0.5; ylim[2]=ylim[2]+0.5
    
    fn = file.path( p$annual.results, "timeseries",  "interpolated", "mean.bottom.temp.snowcrab.habitat" )
    
    dir.create( dirname(fn), recursive=T, showWarnings=F  )
    
    png( filename=paste(fn, "png", sep="."), width=3072, height=2304, pointsize=40, res=300 )

    setup.lattice.options()
    pl = xyplot( t~yr|region, data=td, ub=td$ubound, lb=td$lbound,
        layout=c(1,3), xlim=xlim, ylim=ylim, cex=3, # scales = list(y = "free"),
            main="Temperature in potential habitats", xlab="Year", ylab="Celsius",
            panel = function(x, y, subscripts, ub, lb, ...) {
            panel.abline(h=mean(y, na.rm=T), col="gray40", lwd=2, ...)
            larrows(x, lb[subscripts],
                    x, ub[subscripts],
                   angle = 90, code = 3, length=0.005, lwd=1, col="darkgray")
            panel.xyplot(x, y, type="b", lwd=4, pch=".", col="black", ...)
#            panel.loess(x,y, span=0.15, lwd=2)
       }
    )
    print( pl )
    dev.off()
  
    means = tapply(td$t, td$region, mean, na.rm=T)
    print("mean temperatures:")
    print(means)
    print("SD:")
    print( tapply(td$t, td$region, sd, na.rm=T) ) 
    print( "latest year:" )
    print( td$t[ td$yr==p$year.assessment ])
    #table.view( td )
    return(fn)  
  }