File:Maya area july 2004 precipitation 1.svg
Original file (SVG file, nominally 630 × 630 pixels, file size: 624 KB)
Captions
Captions
Summary[edit]
| Description |
English: Maya area july 2004 precipitation. Chelsa bioclim+ dataset. |
| Date | |
| Source | Own work |
| Author | Merikanto |
This plot is based on Chelsa bioclim+ dataset
Karger, D.N., Conrad, O., Böhner, J., Kawohl, T., Kreft, H., Soria-Auza, R.W., Zimmermann, N.E., Linder, P., Kessler, M. (2017). Climatologies at high resolution for the Earth land surface areas. Scientific Data. 4 170122. https://doi.org/10.1038/sdata.2017.122
Karger D.N., Conrad, O., Böhner, J., Kawohl, T., Kreft, H., Soria-Auza, R.W., Zimmermann, N.E,, Linder, H.P., Kessler, M.. Data from: Climatologies at high resolution for the earth’s land surface areas. Dryad Digital Repository.http://dx.doi.org/doi:10.5061/dryad.kd1d4
https://chelsa-climate.org/bioclim/
"R" script
- chelsa data download and view
- "R" script
library(raster)
library(pals)
library(RColorBrewer)
library(maps)
library(mapdata)
library(svglite)
download_rasters1=1
- chelsa bioclim0 1980 ....
if(download_rasters1==1)
{
download.file(url = demurl1,destfile = 'dem1.tif')
download.file(url = url1,destfile = 'r1.tif')
- download.file(url = url2,destfile = 'r2.tif')
}
r1<-raster("r1.tif")
- r2<-raster("r2.tif")
dem1<-raster("dem1.tif")
- r1<-raster("CHELSA_TraCE21k_pr_7_0_V1.0.tif")
- r2<-raster("CHELSA_TraCE21k_pr_7_-10_V1.0.tif")
- lh-mh
- ro1<-r1-r2
ext1 <- extent(c(xmin = -96, xmax = -85,
ymin = 13, ymax = 22))
rb1<-crop(r1, ext1) ## later
- rb2<-crop(r2, ext1) ## earlier
- lete-early
- ro1<-rb1-rb2
ro1<-rb1
dem2<-crop(dem1, ext1)
mask1<-resample(dem2, ro1)
mask1[mask1<1]<-0
mask1[mask1>0]<-1
mask1[mask1==0]<-NA
ro2<-ro1*mask1
- svglite("maya_area_july_2004_precipitation_1.svg", width = 6, height = 6)
ro3=ro2/100
pal <- colorRampPalette(c("brown","yellow","green","blue", "violet"))
plot(ro3,
#col=rev(parula(256))
col=pal(256),
main="July 2004 precipitation mm",
xlab="longitude",ylab="latitude")
contour(ro3,nlevels=10, lwd=1, col="black", alpha=0.5, add=T)
- quit(-1)
map(database = 'world',
xlim = c(-96, -85),
ylim = c(15, 22),
fill = F,
col = 'blue',
resolution = 0,
bg = 'white',
add=T
)
box()
dev.off()
system("pdf2svg Rplots.pdf maya_area_july_2004_precipitation_1.svg")
quit("yes")
Licensing[edit]
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 14:44, 9 January 2024 | | 630 × 630 (624 KB) | Merikanto (talk | contribs) | Correct blank screen |
| 14:40, 9 January 2024 |  | 540 × 540 (485 KB) | Merikanto (talk | contribs) | Uploaded own work with UploadWizard |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
