File:NZ-T7-land-temp-anom-720by540-v1.svg
From Wikimedia Commons, the free media repository
Jump to navigation
Jump to search
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)
File information
Structured data
Captions
Summary
[edit]DescriptionNZ-T7-land-temp-anom-720by540-v1.svg |
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 InfoField | |
Source code InfoField | 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
[edit]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 (talk | contribs) | update | |
03:28, 11 January 2023 | 720 × 540 (136 KB) | Mrfebruary (talk | contribs) | update | ||
06:01, 14 January 2022 | 720 × 540 (141 KB) | Mrfebruary (talk | contribs) | chart with trend line | ||
01:22, 13 January 2022 | 720 × 540 (199 KB) | Mrfebruary (talk | contribs) | temperature to 2021 and back to 1991 to 2010 baseline | ||
01:53, 12 January 2022 | 720 × 540 (183 KB) | Mrfebruary (talk | contribs) | temperature to 2019 and change to 1961 to 1990 baseline | ||
02:51, 2 June 2019 | 720 × 540 (193 KB) | Mrfebruary (talk | contribs) | script change R version | ||
03:49, 6 March 2019 | 720 × 540 (175 KB) | Mrfebruary (talk | contribs) | User created page with UploadWizard |
You cannot overwrite this file.
File usage on Commons
There are no pages that use this file.
File usage on other wikis
The following other wikis use this file:
- Usage on en.wikipedia.org
Metadata
This file contains additional information such as Exif metadata which may have been added by the digital camera, scanner, or software program used to create or digitize it. If the file has been modified from its original state, some details such as the timestamp may not fully reflect those of the original file. The timestamp is only as accurate as the clock in the camera, and it may be completely wrong.
Width | 576pt |
---|---|
Height | 432pt |