Revision 339fcf3d
Added by Benoit Parmentier over 8 years ago
| climate/research/oregon/interpolation/global_product_assessment_part2_functions.R | ||
|---|---|---|
| 19 | 19 |
# |
| 20 | 20 |
#setfacl -Rmd user:aguzman4:rwx /nobackupp8/bparmen1/output_run10_1500x4500_global_analyses_pred_1992_10052015 |
| 21 | 21 |
|
| 22 |
##COMMIT: time profiles run on multiple selected stations and fixing bugs
|
|
| 22 |
##COMMIT: Changes to plotting function for raster mosaic and other
|
|
| 23 | 23 |
|
| 24 | 24 |
################################################################################################# |
| 25 | 25 |
|
| ... | ... | |
| 153 | 153 |
raster_name_tmp <- gsub(extension_str,"",basename(raster_name)) |
| 154 | 154 |
|
| 155 | 155 |
date_proc <- l_dates[i] |
| 156 |
date_val <- as.Date(strptime(date_proc,"%Y%m%d")) |
|
| 157 |
#month_name <- month.name(date_val) |
|
| 156 |
if(class(date_proc)!="Date"){
|
|
| 157 |
date_val <- as.Date(strptime(date_proc,"%Y%m%d")) |
|
| 158 |
#month_name <- month.name(date_val) |
|
| 159 |
}else{
|
|
| 160 |
date_val <- date_proc |
|
| 161 |
} |
|
| 162 |
|
|
| 158 | 163 |
month_str <- format(date_val, "%b") ## Month, char, abbreviated |
| 159 | 164 |
year_str <- format(date_val, "%Y") ## Year with century |
| 160 | 165 |
day_str <- as.numeric(format(date_val, "%d")) ## numeric month |
| ... | ... | |
| 167 | 172 |
|
| 168 | 173 |
|
| 169 | 174 |
if(is.null(zlim_val)){
|
| 175 |
|
|
| 176 |
if(is.na(minValue(r_pred))){
|
|
| 177 |
r_pred <- setMinMax(r_pred) |
|
| 178 |
} |
|
| 179 |
|
|
| 170 | 180 |
zlim_val_str <- paste(c(minValue(r_pred),maxValue(r_pred)),sep="_",collapse="_") |
| 171 | 181 |
#png_filename <- file.path(out_dir,paste("Figure4_clim_mosaics_day_","_",date_proc,"_",region_name,"_zlim_",zlim_val_str,"_",out_suffix,".png",sep =""))
|
| 172 |
raster_name_tmp |
|
| 182 |
#raster_name_tmp
|
|
| 173 | 183 |
png_filename <- file.path(out_dir,paste("Figure_",raster_name_tmp,"_zlim_",zlim_val_str,"_",out_suffix,".png",sep =""))
|
| 174 | 184 |
|
| 175 | 185 |
title_str <- paste("Predicted ",variable_name, " on ",date_str , " ", sep = "")
|
| 176 |
|
|
| 186 |
#browser() |
|
| 187 |
|
|
| 177 | 188 |
png(filename=png_filename,width = col_mfrow * res_pix,height = row_mfrow * res_pix) |
| 178 | 189 |
|
| 179 | 190 |
plot(r_pred,main =title_str,cex.main =1.5,col=matlab.like(255), |
| ... | ... | |
| 183 | 194 |
#legend.args=list(text='dNBR', side=4, line=2.49, cex=1.6)) |
| 184 | 195 |
dev.off() |
| 185 | 196 |
}else{
|
| 197 |
|
|
| 186 | 198 |
zlim_val_str <- paste(zlim_val,sep="_",collapse="_") |
| 187 | 199 |
#png_filename <- file.path(out_dir,paste("Figure_mosaics_day_","_",date_proc,"_",region_name,"_",zlim_val_str,"_",out_suffix,".png",sep =""))
|
| 200 |
|
|
| 188 | 201 |
png_filename <- file.path(out_dir,paste("Figure_",raster_name_tmp,"_zlim_",zlim_val_str,"_",out_suffix,".png",sep =""))
|
| 189 | 202 |
|
| 190 | 203 |
title_str <- paste("Predicted ",variable_name, " on ",date_str , " ", sep = "")
|
| 204 |
|
|
| 191 | 205 |
png(filename=png_filename,width = col_mfrow * res_pix,height = row_mfrow * res_pix) |
| 192 | 206 |
|
| 193 | 207 |
plot(r_pred,main =title_str,cex.main =1.5,col=matlab.like(255),zlim=zlim_val, |
| ... | ... | |
| 197 | 211 |
#legend.args=list(text='dNBR', side=4, line=2.49, cex=1.6)) |
| 198 | 212 |
dev.off() |
| 199 | 213 |
} |
| 214 |
|
|
| 200 | 215 |
return(png_filename) |
| 201 | 216 |
} |
| 202 | 217 |
|
Also available in: Unified diff
Changes to plotting function for raster mosaic and other