File:Gdd5 finland 2.png
Original file (1,950 × 1,950 pixels, file size: 1.19 MB, MIME type: image/png)
Captions
Captions
Summary
[edit]
| Description |
English: Growing degree days in Finland - GDD% or growing thermal sum GTS5. |
| Date | |
| Source | Own work |
| Author | Merikanto |
Source of data is Chelsa Climate V1.2 Echlesa hydro gdd5
exChelsa – extended bioclim https://chelsa-climate.org/exchelsa-extended-bioclim/
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
R code to plot map
- map draw in "R" from world geotiff
- 3.11.2021 0000.0000
-
library(raster)
library(maps)
library(Thermimage)
library(viridis)
library(RColorBrewer)
library(colorspace)
library(rworldmap)
library(rgeos)
imagetitle1="GDD5"
lon_1=20
lon_2=32
lat_1=58
lat_2=72
zbegin_1=0
zend_1=2000
map_color_1="black"
inname1<-"./data2/CHELSA_gdd_5_1979-2013.tif"
inrasname_1="./out1.nc"
- palette1<-topo.colors
palette1<-rev(rainbow(256))
ext1<-extent(lon_1, lon_2, lat_1,lat_2)
inras1<-raster(inname1)
- inshape1 <- getData("GADM", country="FI", level=0)
selras1<-crop(inras1,ext1)
crs(selras1) <- "+proj=longlat +datum=WGS84 +no_defs +ellps=WGS84 +towgs84=0,0,0"
writeRaster(selras1, filename=inrasname_1, varname="z", format="CDF", overwrite=TRUE)
inras_1<-raster(inrasname_1)
r<-inras_1
- r <- crop(r, ext1 )
NAvalue(r) <- -99999
aspekt1<- ncol(r) / nrow(r)
- drawing code ....
png(
"out.png",
width = 3.25,
height = 3.25,
units = "in",
res = 600,
pointsize = 4
)
par(
mar = c(5, 5, 2, 2),
xaxs = "i",
yaxs = "i",
cex.axis = 2,
cex.lab = 2
)
- par(cex.lab=1, cex.axis=1, cex.main=1)
print("Drawing map, please wait ...")
world <- getMap(resolution="high")
world <- gBuffer(world, byid = T, width = 0)
world <- crop(world, r)
image(r, col = palette1, asp = aspekt1, xlab="lon", ylab="lat", main=imagetitle1, cex.main=4)
plot(world, add = T, lwd = 0.5)
contour(r,col=c(rgb(0.5,0,0,0.5)), lwd=0.15, nlevels=24, labcex=0, add = TRUE)
contour(r,col=c(rgb(0.5,0,0,0.75)), lwd=0.4, nvelevs=8,labcex=1.6, add = TRUE)
dev.off()
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:04, 3 November 2021 | | 1,950 × 1,950 (1.19 MB) | 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.
