File:NZ-T7-land-temp-anom-720by540-v1.svg
Size of this PNG preview of this SVG file: 720 × 540 pixels. Other resolutions: 320 × 240 pixels | 640 × 480 pixels | 1,024 × 768 pixels | 1,280 × 960 pixels | 2,560 × 1,920 pixels.
Original file (SVG file, nominally 720 × 540 pixels, file size: 143 KB)
 | This is a file from the Wikimedia Commons. Information from its description page there is shown below. Commons is a freely licensed media file repository. You can help. |
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 | 07:03, 11 January 2024 | | 720 × 540 (143 KB) | Mrfebruary | update |
| 03:28, 11 January 2023 |  | 720 × 540 (136 KB) | Mrfebruary | update | |
| 06:01, 14 January 2022 |  | 720 × 540 (141 KB) | Mrfebruary | chart with trend line | |
| 01:22, 13 January 2022 |  | 720 × 540 (199 KB) | Mrfebruary | temperature to 2021 and back to 1991 to 2010 baseline | |
| 01:53, 12 January 2022 |  | 720 × 540 (183 KB) | Mrfebruary | temperature to 2019 and change to 1961 to 1990 baseline | |
| 02:51, 2 June 2019 |  | 720 × 540 (193 KB) | Mrfebruary | script change R version | |
| 03:49, 6 March 2019 |  | 720 × 540 (175 KB) | Mrfebruary | User created page with UploadWizard |
File usage
The following 2 pages use this file:
