File:NZ-T7-land-temp-anom-720by540-v1.svg
From WikiMD's medical encyclopedia
Size of this PNG preview of this SVG file: 768 × 576 pixels. Other resolutions: 320 × 240 pixels | 640 × 480 pixels | 800 × 600 pixels | 1,024 × 768 pixels | 1,280 × 960 pixels | 2,560 × 1,920 pixels.
Original file (SVG file, nominally 768 × 576 pixels, file size: 104 KB)
Summary
| Description |
English: This is New Zealand's "Seven-station series" land surface temperature anomaly (degrees Celsius difference from 1981 to 2010 mean temperature for each station) time series data from 1909 to 2022 originally prepared by the National Institute of Water and Atmospheric Research. |
| Date | |
| Source | Own work See https://github.com/theecanmole/nzt7 Data: https://www.niwa.co.nz/our-science/climate/information-and-resources/nz-temp-record/seven-station-series-temperature-data and https://www.stats.govt.nz/indicators/temperature |
| Author | Mrfebruary |
| SVG development | |
| Source code | R codeurl <- c("https://www.niwa.co.nz/sites/niwa.co.nz/files/NZT7_Adjusted_Annual_TMean2018_Web-updated-jan-2019.xlsx")
file <- c("NZT7_Adjusted_Annual_TMean2018_Web-updated-jan-2019.xlsx")
download.file(url, file)
library(readxl)
t7data <-read_excel("NZT7_Adjusted_Annual_TMean2018_Web-updated-jan-2019.xlsx", sheet = "NZT7_Adjusted_TMean2016_Web", range ="Q12:Q122", col_names = T, skip =11,col_types = c("guess"))
year <-read_excel("NZT7_Adjusted_Annual_TMean2018_Web-updated-jan-2019.xlsx", sheet = "NZT7_Adjusted_TMean2016_Web", range ="A12:A122", col_names = T, skip =11,col_types = c("guess"))
t7data<-cbind(year,t7data)
names(t7data)<-c("Year","Anomaly")
# add 2019 annual anomaly 0.76 C ref https://www.nzherald.co.nz/environment/news/article.cfm?c_id=39&objectid=12299091
t7data <- rbind(t7data,c(2019,0.76))
# add 2020 anomaly 0.63 https://niwa.co.nz/climate/summaries/annual-climate-summary-2020
t7data <- rbind(t7data,c(2020,0.63))
# add 2021 anomaly 0.95 https://niwa.co.nz/climate/summaries/annual-climate-summary-2021
t7data <- rbind(t7data,c(2021,0.95))
# add 2022 anomaly https://niwa.co.nz/climate/summaries/annual-climate-summary-2022
t7data <- rbind(t7data,c(2022,1.15))
# add 2023 anomaly https://niwa.co.nz/climate/summaries/annual-climate-summary-2023
t7data <- rbind(t7data,c(2023,0.87))
# create graph
svg(filename="NZ-T7-land-temp-anom-2022-720by540-v1.svg", width = 8, height = 6, pointsize = 14, onefile = FALSE, family = "sans", bg = "white", antialias = c("default", "none", "gray", "subpixel"))
par(mar=c(2.7,2.7,1,1)+0.1)
plot(t7data[["Year"]],t7data[["Anomaly"]],ylim=c(-1.5,1.45),xlim=c(1905,2023),tck=0.01,axes=FALSE,ann=FALSE, type="l",col="1",lwd=1,las=1)
axis(side=1, tck=0.01, las=0,tick=TRUE)
axis(side=2, tck=0.01, las=0,tick=TRUE,las=1)
box()
lines(t7data[["Year"]],t7data[["Anomaly"]],col="1",lwd=1)
points(t7data[["Year"]],t7data[["Anomaly"]],col="#000099",pch=19)
abline(lm(t7data[["Anomaly"]]~t7data[["Year"]]),col="#000099",lwd=2,lty=1)
mtext(side=1,cex=0.7,line=-1.1,"Data: NIWA Seven-station series temperature data\n https://www.niwa.co.nz/sites/niwa.co.nz/files/NZT7_Adjusted_Annual_TMean2018_Web-updated-jan-2019.xlsx")
mtext(side=3,cex=1.7, line=-4,expression(paste("New Zealand Mean Land Surface \nTemperature Anomalies 1909 - 2023")) )
mtext(side=2,cex=1, line=-1.3,"Temperature anomaly C vs 1981-2010 mean")
legend(1910, 1,bty='n',bg="white", cex = 0.8, c(paste("Mean", c("annual anomaly", "lowess smoothed anomaly 11 years f = 0.1"))),pch=c(19,NA),lty=c(1,1),lwd=c(1,3),col=c("#000099","#CC0000"))
mtext(side=4,cex=0.75, line=0.05,R.version.string)
abline(h=0,col="darkgray")
dev.off()
|
Licensing
I, the copyright holder of this work, hereby publish it under the following license:
This file is licensed under the Creative Commons Attribution-Share Alike 4.0 International license.
- 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 | 04:39, 11 January 2025 | | 768 × 576 (104 KB) | Mrfebruary | update |
File usage
The following page uses this file:
