R/createPlotScript.GMT5.R
In wStockhausen/wtsGMT: Functions for creating maps with GMT 4.5 (and maybe 5.1)
Defines functions
createPlotScript.GMT5
Documented in
createPlotScript.GMT5
#'
#'@title Creates a shell script for GMT 4.5 to plot a dataframe or csv file on a map.
#'
#'@description A function to create a shell script for GMT 4.5 to plot a dataframe or csv file on a map.
#'
#'@details
#' External Requirements:
#' * GMT 5.1.x ---DOESN'T WORK!!
#'
#' @param z1 = scale for z axis
#' @param delx = x increment for associated grids
#' @param dely = y increment for associated grids
#' @param logtr = flag to ln-transform z data
#' @param blocktype = flag ('MEAN' or 'SUM') for grouping data
#' @param plt_blocktype = flag ('SMOOTH','COARSE') for displaying surface
#' @param plt_surface = flag to plot data as a color density image
#' @param plt_blocklocations = flag to plot block locations as X's
#' @param plt_bars = flag to plot data as bars
#' @param plt_colorscale = flag to plot color scale
#' @param plt_reflines = flag to include refernce lines on map
#' @param plt_title = flag to include title on map
#'
#' @return GMT function script as character vector
#'
#' @importFrom wtsUtilities getCSV
#'
#' @export
#'
createPlotScript.GMT5<-function(z10=1,
logtr=FALSE,
blocktype=c('MEAN','SMOOTH'),
plt_blocktype=c('SMOOTH','COARSE'),
plt_surface=FALSE,
plt_bars=FALSE,
plt_blocklocations=FALSE,
plt_stations=FALSE,
plt_colorscale=FALSE,
plt_reflines=FALSE,
plt_title=FALSE){
script<-'';
#
# GMT script to plot catch or CPUE for CRAB
# The following environment variables should be exported prior to
# calling this batch file.
# spplabel = species label
# zscl = desired z zscale (log10(x+1))
# zinc = increment for z color zscale
# zscale =
# zscaleint =
# zstride1 =
# zstride2 =
# z10 =
# logtr = flag to perform log(x+1) transform on CPUE/Catch (TRUE/FALSE)
# blocktype = flag indicating type of blockmean processing: MEAN (default: -S) or SUM (-Sz)
# plt_bars = plot CPUE/Catch as bars (TRUE/FALSE)
# plt_surface = plot CPUE/Catch as color density (TRUE/FALSE)
# plt_stations = include stations on plot (TRUE/FALSE)
# plt_title = include species name as title (TRUE/FALSE)
# ztype = type of data for z axis ("Catch" or "CPUE")
# zunits = units of z axis
# bathymetryfile = full path to bathymetry file (paths w/ spaces must be quoted)
# The command line inputs to this batchfile are
# %1 = input csv filename
# %2 = output postscript filename
#
# The input csv file should have the following structure
# col 1: longitude
# col 2: latitude
# col 3: CPUE or Catch
#
# export plotting defaults
# export paper media for EPS file (appended "+")
script<-paste(script,"\n","#--PLOT FORMAT DEFAULTS",sep='\n')
script<-paste(script,"gmt set PS_MEDIA letter",sep='\n')
script<-paste(script,"gmt set MAP_FRAME_TYPE fancy PS_PAGE_ORIENTATION portrait MAP_ORIGIN_X 1 MAP_ORIGIN_Y 1",sep='\n')
script<-paste(script,"gmt set FONT_ANNOT_PRIMARY 12p FONT_ANNOT_SECONDARY 14p FONT_TITLE 24p FONT_LABEL 14p",sep='\n')
script<-paste(script,"gmt set MAP_FRAME_WIDTH 0.075 FORMAT_GEO_MAP DF FORMAT_GEO_OUT D",sep='\n')
script<-paste(script,"gmt set GMT_VERBOSE normal",sep='\n')
#NOTE: '> file' writes standard output to 'file'
#NOTE: '>> file' appends standard output to 'file'
# plot basemap and title
script<-paste(script,"\n","#--PLOT BASE MAP",sep='\n')
script<-paste(script,"gmt psbasemap ${rngxyz} ${geotransform} ${rot3d} ${JZ} -X${xs} -Y${ys} ${mapscl} ${mapbndry} -K > ${postfile}",sep='\n')
#
# #expand page size by adding 'invisible' characters to lower left, upper right corners
# script<-paste(script,"\n","#--EXPAND PAGE SIZE",sep='\n')
# script<-paste(script,"echo -0.5 -0.45 24 0 4 LB L|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O -K >> ${postfile}",sep='\n')
# script<-paste(script,"echo 6.1 ${ymx} 24 0 4 TR R|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O -K >> ${postfile}",sep='\n')
# Make a color palette table
script<-paste(script,"\n","#--MAKE COLOR PALETTE",sep='\n')
script<-paste(script,"gmt makecpt -Cseis -T0/${zscale}/${zscaleint} -I -Z > clrs.cpt",sep='\n')
# get cpue values
#[notes: delimiter in infile is a comma, so need to specify '-F,'. The ','s in the print stmt are substituted w/ the delimiter]
if (logtr) {
script<-paste(script,"\n","#--EXTRACT LN-TRANSFORMED DATA",sep='\n')
script<-paste(script,"\n","gawk -F, '{print $1, $2, log($3+1)/log(10), log($3+1)/log(10)}' ${infile} > tmpcpue.txt",sep='')
script<-paste(script,'export ylab=log@-10@-[${ztype}+1]',sep='\n')
} else {
script<-paste(script,"\n","#--EXTRACT UN-TRANSFORMED DATA",sep='\n')
script<-paste(script,"\n","gawk -F, '{print $1, $2, $3/(10^",z10,"), $3/(10^",z10,")}' ${infile} > tmpcpue.txt",sep='')
script<-paste(script,"export ylab=${ztype}",sep='\n')
}
# script<-paste(script,'echo ${ylab}',sep='\n')
# Create gridded surface
if (plt_surface) {
script<-paste(script,"\n","#--GRID AND PLOT SURFACE",sep='\n')
# Create grid {pixel registered [-r] and location at cell center [-C]}
script<-paste(script,"gmt blockmean tmpcpue.txt ${rngxy} ${xyblksz} -C -r ${blocktype} > tmp.xyg",sep='\n')
if (plt_blocktype[1]=='SMOOTH') {
#create surface
script<-paste(script,"gmt surface tmp.xyg -Gtmp1.grd ${rngxy} -I0.1/0.1 -Ll0 -S2 -T0.5",sep='\n');
script<-paste(script,"gmt grdview tmp1.grd ${rngxy} ${geotransform} ${rot3d} -Cclrs.cpt -S -Qi -O -K >> ${postfile}",sep='\n');
} else {
#create surface
script<-paste(script,"gmt surface tmp.xyg -Gtmp1.grd ${rngxy} ${xyblksz} -Ll0ud -T0.9",sep='\n');
# plot contour surface (use -Tso instead of -Ts to outline the tiles, as well color them
script<-paste(script,"gmt grdview tmp1.grd ${rngxy} ${geotransform} ${rot3d} -Cclrs.cpt -Tso -O -K >> ${postfile}",sep='\n');
}
#clip the surface
script<-paste(script,"gmt psmask tmp.xyg ${rngxyz} ${geotransform} ${rot3d} ${JZ} -G255 -I1 -N -V -O -K >> ${postfile}",sep='\n');
#turn clipping off
script<-paste(script,"gmt psmask -C -O -K >> ${postfile}",sep='\n');
#replot the basemap (w/out X,Y shift), as this may have been clipped
script<-paste(script,"gmt psbasemap ${rngxyz} ${geotransform} ${rot3d} ${JZ} ${mapscl} ${mapbndry} -O -K >> ${postfile}",sep='\n')
}
# plot the coast
script<-paste(script,"\n","#--PLOT COASTLINE",sep='\n')
script<-paste(script,"gmt pscoast ${rngxyz} ${geotransform} ${rot3d} ${JZ} ${mapscl} -G0/200/0 -Dh -W -O -K >> ${postfile}",sep='\n')
# depth contour...
script<-paste(script,"\n","#--PLOT BATHYMETRY",sep='\n')
script<-paste(script,"gmt psxyz ${bathymetryfile} ${rngxyz} ${geotransform} ${rot3d} ${JZ} -W1,150 -O -K >> ${postfile}",sep='\n')
if (plt_reflines){
script<-paste(script,"\n","#--PLOT REFERENCE LINES",sep='\n')
reflines<-file.path(getwd(),'reflines.txt');
script<-paste(script,"\n","export reflines='",reflines,"'",sep='')
script<-paste(script,"gmt psxyz ${reflines} ${rngxyz} ${geotransform} ${rot3d} ${JZ} -W1,150 -O -K >> ${postfile}",sep='\n')
# script<-paste(script,'rm -f reflines.txt',sep='\n')
}
# plot actual station locations...
#[notes: delimiter in ${infile} is a comma, so need to specify '-F,'. ',' in print stmt substituted w/ the delimiter]
if (plt_stations){
script<-paste(script,"\n","#--PLOT STATIONS",sep='\n')
script<-paste(script,"gawk -F, '{print $1, $2, 0.0}' ${infile} > tmplocs.txt",sep='\n')
script<-paste(script,"gmt psxyz tmplocs.txt ${rngxyz} ${geotransform} ${rot3d} ${JZ} -Ss0.01i -W2,red -O -K >> ${postfile}",sep='\n')
# script<-paste(script,'rm -f tmplocs.txt',sep='\n')
}
# Plot values as columns above locations
if (plt_bars){
script<-paste(script,"\n","#--PLOT BARS",sep='\n')
if (logtr){
script<-paste(script,"\n","gawk -F, '(($3>0)) {print $1,$2, log($3+1)/log(10), log($3+1)/log(10)}' ${infile} > tmpcpue.txt",sep='')
} else {
script<-paste(script,"\n","gawk -F, '(($3>0)) {print $1,$2, $3/(10^",z10,"), $3/(10^",z10,")}' ${infile} > tmpcpue.txt",sep='')
}
if (blocktype[1]=="SUM"){
script<-paste(script,'gmt psxyz tmpcpue.txt ${rngxyz} ${geotransform} ${rot3d} -B//a${zstride1}f${zstride2}:"${ylab} (${zunits})":Z -JZ1.5i -Cclrs.cpt -So${delxy} -W -K -O >> ${postfile}',sep='\n')
} else {
script<-paste(script,'gmt psxyz tmpcpue.txt ${rngxyz} ${geotransform} ${rot3d} -B//a${zstride1}f${zstride2}:"${ylab} (${zunits})":Z -JZ1.5i -Cclrs.cpt -So0.05i -W -K -O >> ${postfile}',sep='\n')
}
# script<-paste(script,'rm -f tmpcpue.txt',sep='\n')
}
#plot block locations
#[notes: delimiter in tmp.xyg is whitespace, the default delimiter, so need for -F. ',' in print stmt substituted w/ the delimiter]
if (plt_blocklocations){
script<-paste(script,"\n","#--PLOT BLOCK LOCATIONS",sep='\n')
script<-paste(script,"gawk '{print $1, $2, 0.0}' tmp.xyg > tmplocs1.txt",sep='\n')
script<-paste(script,'gmt psxyz tmplocs1.txt ${rngxyz} ${geotransform} ${rot3d} ${JZ} -Sx0.1i -W2,blue -O -K >> ${postfile}',sep='\n')
# script<-paste(script,'rm -f tmplocs1.txt',sep='\n')
}
# Label the year for each panel
script<-paste(script,"\n","#--PLOT YEAR LABEL",sep='\n')
script<-paste(script,'echo ${yearlabelinfo}|gmt pstext ${rngxyz} ${geotransform} ${rot3d} ${JZ} -G255 -N -O -K >> ${postfile}',sep='\n')
# Plot the cpue zscale
if (plt_colorscale){
script<-paste(script,"\n","#--PLOT COLOR SCALE",sep='\n')
script<-paste(script,'export clrbarloc=-D6.2i/1i/1.5i/0.25i',sep='\n')
# script<-paste(script,'echo 7.0 ${ymx} 24 0 4 TR R|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O -K >> ${postfile}',sep='\n')
script<-paste(script,'gmt psscale ${clrbarloc} -Cclrs.cpt -Ba${zstride1}f${zstride2}:" ":/:"${zunits}": -O -K >> ${postfile}',sep='\n')
script<-paste(script,'echo 0 0 14 90 4 MC ${ylab}|gmt pstext -R0/1/0/1 -JX1i -G255 -N -Xa6.8i -Ya1i -O -K >> ${postfile}',sep='\n')
}
#Add title and close ps file
if (plt_title){
script<-paste(script,"\n","#--ADD TITLE & CLOSE FILE",sep='\n')
script<-paste(script,'echo 6.0 ${ymx} 20 0 4 MR ${spplabel}|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O >> ${postfile}',sep='\n')
} else {
script<-paste(script,"\n","#--ADD NO TITLE & CLOSE FILE",sep='\n')
script<-paste(script,'echo 6.0 ${ymx} 20 0 4 MR o|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O >> ${postfile}',sep='\n')
}
script<-paste(script,"\n","#--CLEAN UP",sep='\n')
# script<-paste(script,'rm -f clrs.cpt',sep='\n')
# script<-paste(script,'rm -f .gmtcommands4',sep='\n')
# script<-paste(script,'rm -f .gmtdefaults4',sep='\n')
#make substitutions
script<-gsub('${z10}',as.character(z10),script,fixed=TRUE);
return(script);
}
wStockhausen/wtsGMT documentation built on May 3, 2019, 7:36 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions createPlotScript.GMT5
Documented in createPlotScript.GMT5
#'
#'@title Creates a shell script for GMT 4.5 to plot a dataframe or csv file on a map.
#'
#'@description A function to create a shell script for GMT 4.5 to plot a dataframe or csv file on a map.
#'
#'@details
#' External Requirements:
#' * GMT 5.1.x ---DOESN'T WORK!!
#'
#' @param z1 = scale for z axis
#' @param delx = x increment for associated grids
#' @param dely = y increment for associated grids
#' @param logtr = flag to ln-transform z data
#' @param blocktype = flag ('MEAN' or 'SUM') for grouping data
#' @param plt_blocktype = flag ('SMOOTH','COARSE') for displaying surface
#' @param plt_surface = flag to plot data as a color density image
#' @param plt_blocklocations = flag to plot block locations as X's
#' @param plt_bars = flag to plot data as bars
#' @param plt_colorscale = flag to plot color scale
#' @param plt_reflines = flag to include refernce lines on map
#' @param plt_title = flag to include title on map
#'
#' @return GMT function script as character vector
#'
#' @importFrom wtsUtilities getCSV
#'
#' @export
#'
createPlotScript.GMT5<-function(z10=1,
logtr=FALSE,
blocktype=c('MEAN','SMOOTH'),
plt_blocktype=c('SMOOTH','COARSE'),
plt_surface=FALSE,
plt_bars=FALSE,
plt_blocklocations=FALSE,
plt_stations=FALSE,
plt_colorscale=FALSE,
plt_reflines=FALSE,
plt_title=FALSE){
script<-'';
#
# GMT script to plot catch or CPUE for CRAB
# The following environment variables should be exported prior to
# calling this batch file.
# spplabel = species label
# zscl = desired z zscale (log10(x+1))
# zinc = increment for z color zscale
# zscale =
# zscaleint =
# zstride1 =
# zstride2 =
# z10 =
# logtr = flag to perform log(x+1) transform on CPUE/Catch (TRUE/FALSE)
# blocktype = flag indicating type of blockmean processing: MEAN (default: -S) or SUM (-Sz)
# plt_bars = plot CPUE/Catch as bars (TRUE/FALSE)
# plt_surface = plot CPUE/Catch as color density (TRUE/FALSE)
# plt_stations = include stations on plot (TRUE/FALSE)
# plt_title = include species name as title (TRUE/FALSE)
# ztype = type of data for z axis ("Catch" or "CPUE")
# zunits = units of z axis
# bathymetryfile = full path to bathymetry file (paths w/ spaces must be quoted)
# The command line inputs to this batchfile are
# %1 = input csv filename
# %2 = output postscript filename
#
# The input csv file should have the following structure
# col 1: longitude
# col 2: latitude
# col 3: CPUE or Catch
#
# export plotting defaults
# export paper media for EPS file (appended "+")
script<-paste(script,"\n","#--PLOT FORMAT DEFAULTS",sep='\n')
script<-paste(script,"gmt set PS_MEDIA letter",sep='\n')
script<-paste(script,"gmt set MAP_FRAME_TYPE fancy PS_PAGE_ORIENTATION portrait MAP_ORIGIN_X 1 MAP_ORIGIN_Y 1",sep='\n')
script<-paste(script,"gmt set FONT_ANNOT_PRIMARY 12p FONT_ANNOT_SECONDARY 14p FONT_TITLE 24p FONT_LABEL 14p",sep='\n')
script<-paste(script,"gmt set MAP_FRAME_WIDTH 0.075 FORMAT_GEO_MAP DF FORMAT_GEO_OUT D",sep='\n')
script<-paste(script,"gmt set GMT_VERBOSE normal",sep='\n')
#NOTE: '> file' writes standard output to 'file'
#NOTE: '>> file' appends standard output to 'file'
# plot basemap and title
script<-paste(script,"\n","#--PLOT BASE MAP",sep='\n')
script<-paste(script,"gmt psbasemap ${rngxyz} ${geotransform} ${rot3d} ${JZ} -X${xs} -Y${ys} ${mapscl} ${mapbndry} -K > ${postfile}",sep='\n')
#
# #expand page size by adding 'invisible' characters to lower left, upper right corners
# script<-paste(script,"\n","#--EXPAND PAGE SIZE",sep='\n')
# script<-paste(script,"echo -0.5 -0.45 24 0 4 LB L|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O -K >> ${postfile}",sep='\n')
# script<-paste(script,"echo 6.1 ${ymx} 24 0 4 TR R|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O -K >> ${postfile}",sep='\n')
# Make a color palette table
script<-paste(script,"\n","#--MAKE COLOR PALETTE",sep='\n')
script<-paste(script,"gmt makecpt -Cseis -T0/${zscale}/${zscaleint} -I -Z > clrs.cpt",sep='\n')
# get cpue values
#[notes: delimiter in infile is a comma, so need to specify '-F,'. The ','s in the print stmt are substituted w/ the delimiter]
if (logtr) {
script<-paste(script,"\n","#--EXTRACT LN-TRANSFORMED DATA",sep='\n')
script<-paste(script,"\n","gawk -F, '{print $1, $2, log($3+1)/log(10), log($3+1)/log(10)}' ${infile} > tmpcpue.txt",sep='')
script<-paste(script,'export ylab=log@-10@-[${ztype}+1]',sep='\n')
} else {
script<-paste(script,"\n","#--EXTRACT UN-TRANSFORMED DATA",sep='\n')
script<-paste(script,"\n","gawk -F, '{print $1, $2, $3/(10^",z10,"), $3/(10^",z10,")}' ${infile} > tmpcpue.txt",sep='')
script<-paste(script,"export ylab=${ztype}",sep='\n')
}
# script<-paste(script,'echo ${ylab}',sep='\n')
# Create gridded surface
if (plt_surface) {
script<-paste(script,"\n","#--GRID AND PLOT SURFACE",sep='\n')
# Create grid {pixel registered [-r] and location at cell center [-C]}
script<-paste(script,"gmt blockmean tmpcpue.txt ${rngxy} ${xyblksz} -C -r ${blocktype} > tmp.xyg",sep='\n')
if (plt_blocktype[1]=='SMOOTH') {
#create surface
script<-paste(script,"gmt surface tmp.xyg -Gtmp1.grd ${rngxy} -I0.1/0.1 -Ll0 -S2 -T0.5",sep='\n');
script<-paste(script,"gmt grdview tmp1.grd ${rngxy} ${geotransform} ${rot3d} -Cclrs.cpt -S -Qi -O -K >> ${postfile}",sep='\n');
} else {
#create surface
script<-paste(script,"gmt surface tmp.xyg -Gtmp1.grd ${rngxy} ${xyblksz} -Ll0ud -T0.9",sep='\n');
# plot contour surface (use -Tso instead of -Ts to outline the tiles, as well color them
script<-paste(script,"gmt grdview tmp1.grd ${rngxy} ${geotransform} ${rot3d} -Cclrs.cpt -Tso -O -K >> ${postfile}",sep='\n');
}
#clip the surface
script<-paste(script,"gmt psmask tmp.xyg ${rngxyz} ${geotransform} ${rot3d} ${JZ} -G255 -I1 -N -V -O -K >> ${postfile}",sep='\n');
#turn clipping off
script<-paste(script,"gmt psmask -C -O -K >> ${postfile}",sep='\n');
#replot the basemap (w/out X,Y shift), as this may have been clipped
script<-paste(script,"gmt psbasemap ${rngxyz} ${geotransform} ${rot3d} ${JZ} ${mapscl} ${mapbndry} -O -K >> ${postfile}",sep='\n')
}
# plot the coast
script<-paste(script,"\n","#--PLOT COASTLINE",sep='\n')
script<-paste(script,"gmt pscoast ${rngxyz} ${geotransform} ${rot3d} ${JZ} ${mapscl} -G0/200/0 -Dh -W -O -K >> ${postfile}",sep='\n')
# depth contour...
script<-paste(script,"\n","#--PLOT BATHYMETRY",sep='\n')
script<-paste(script,"gmt psxyz ${bathymetryfile} ${rngxyz} ${geotransform} ${rot3d} ${JZ} -W1,150 -O -K >> ${postfile}",sep='\n')
if (plt_reflines){
script<-paste(script,"\n","#--PLOT REFERENCE LINES",sep='\n')
reflines<-file.path(getwd(),'reflines.txt');
script<-paste(script,"\n","export reflines='",reflines,"'",sep='')
script<-paste(script,"gmt psxyz ${reflines} ${rngxyz} ${geotransform} ${rot3d} ${JZ} -W1,150 -O -K >> ${postfile}",sep='\n')
# script<-paste(script,'rm -f reflines.txt',sep='\n')
}
# plot actual station locations...
#[notes: delimiter in ${infile} is a comma, so need to specify '-F,'. ',' in print stmt substituted w/ the delimiter]
if (plt_stations){
script<-paste(script,"\n","#--PLOT STATIONS",sep='\n')
script<-paste(script,"gawk -F, '{print $1, $2, 0.0}' ${infile} > tmplocs.txt",sep='\n')
script<-paste(script,"gmt psxyz tmplocs.txt ${rngxyz} ${geotransform} ${rot3d} ${JZ} -Ss0.01i -W2,red -O -K >> ${postfile}",sep='\n')
# script<-paste(script,'rm -f tmplocs.txt',sep='\n')
}
# Plot values as columns above locations
if (plt_bars){
script<-paste(script,"\n","#--PLOT BARS",sep='\n')
if (logtr){
script<-paste(script,"\n","gawk -F, '(($3>0)) {print $1,$2, log($3+1)/log(10), log($3+1)/log(10)}' ${infile} > tmpcpue.txt",sep='')
} else {
script<-paste(script,"\n","gawk -F, '(($3>0)) {print $1,$2, $3/(10^",z10,"), $3/(10^",z10,")}' ${infile} > tmpcpue.txt",sep='')
}
if (blocktype[1]=="SUM"){
script<-paste(script,'gmt psxyz tmpcpue.txt ${rngxyz} ${geotransform} ${rot3d} -B//a${zstride1}f${zstride2}:"${ylab} (${zunits})":Z -JZ1.5i -Cclrs.cpt -So${delxy} -W -K -O >> ${postfile}',sep='\n')
} else {
script<-paste(script,'gmt psxyz tmpcpue.txt ${rngxyz} ${geotransform} ${rot3d} -B//a${zstride1}f${zstride2}:"${ylab} (${zunits})":Z -JZ1.5i -Cclrs.cpt -So0.05i -W -K -O >> ${postfile}',sep='\n')
}
# script<-paste(script,'rm -f tmpcpue.txt',sep='\n')
}
#plot block locations
#[notes: delimiter in tmp.xyg is whitespace, the default delimiter, so need for -F. ',' in print stmt substituted w/ the delimiter]
if (plt_blocklocations){
script<-paste(script,"\n","#--PLOT BLOCK LOCATIONS",sep='\n')
script<-paste(script,"gawk '{print $1, $2, 0.0}' tmp.xyg > tmplocs1.txt",sep='\n')
script<-paste(script,'gmt psxyz tmplocs1.txt ${rngxyz} ${geotransform} ${rot3d} ${JZ} -Sx0.1i -W2,blue -O -K >> ${postfile}',sep='\n')
# script<-paste(script,'rm -f tmplocs1.txt',sep='\n')
}
# Label the year for each panel
script<-paste(script,"\n","#--PLOT YEAR LABEL",sep='\n')
script<-paste(script,'echo ${yearlabelinfo}|gmt pstext ${rngxyz} ${geotransform} ${rot3d} ${JZ} -G255 -N -O -K >> ${postfile}',sep='\n')
# Plot the cpue zscale
if (plt_colorscale){
script<-paste(script,"\n","#--PLOT COLOR SCALE",sep='\n')
script<-paste(script,'export clrbarloc=-D6.2i/1i/1.5i/0.25i',sep='\n')
# script<-paste(script,'echo 7.0 ${ymx} 24 0 4 TR R|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O -K >> ${postfile}',sep='\n')
script<-paste(script,'gmt psscale ${clrbarloc} -Cclrs.cpt -Ba${zstride1}f${zstride2}:" ":/:"${zunits}": -O -K >> ${postfile}',sep='\n')
script<-paste(script,'echo 0 0 14 90 4 MC ${ylab}|gmt pstext -R0/1/0/1 -JX1i -G255 -N -Xa6.8i -Ya1i -O -K >> ${postfile}',sep='\n')
}
#Add title and close ps file
if (plt_title){
script<-paste(script,"\n","#--ADD TITLE & CLOSE FILE",sep='\n')
script<-paste(script,'echo 6.0 ${ymx} 20 0 4 MR ${spplabel}|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O >> ${postfile}',sep='\n')
} else {
script<-paste(script,"\n","#--ADD NO TITLE & CLOSE FILE",sep='\n')
script<-paste(script,'echo 6.0 ${ymx} 20 0 4 MR o|gmt pstext -R0/1/0/1/ -JX1i -G255 -N -O >> ${postfile}',sep='\n')
}
script<-paste(script,"\n","#--CLEAN UP",sep='\n')
# script<-paste(script,'rm -f clrs.cpt',sep='\n')
# script<-paste(script,'rm -f .gmtcommands4',sep='\n')
# script<-paste(script,'rm -f .gmtdefaults4',sep='\n')
#make substitutions
script<-gsub('${z10}',as.character(z10),script,fixed=TRUE);
return(script);
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.