File:Coropuna ice cap extent 1950-2015.svg

From HandWiki

Original file(SVG file, nominally 615 × 504 pixels, file size: 88 KB)

This file is from a shared repository and may be used by other projects. The description on its file description page there is shown below.

Summary

File information
Description

A combination of various measurements of the size of the Quelccaya ice cap from 1950 to 2015.

Source code in R: plot(c(1955,1975,1986,1996,2003),c(123,105,96,64,56),xlim=range(1950,2015),ylim=range(35,150),pch=1,xlab="Empty circles from Silverio & Jaquet 2012, p. 5882, empty triangles from Silverio, Herold & Peduzzi 2010, p. 318, plus from Silverio 2018, p. 45, filled circle Marinque et al. 2018, p. 178, square cross from Forget et al. 2008, p. 17, diamond plus from Palenque et al. 2018, p. 101",ylab="Area of the ice cap in km2",main="Evolution of the ice cap on Coropuna from 1950 to 2015");arrows(c(1955,1975,1986,1996,2003),c(123,105,96,64,56)-c(15,16,15,8,6),c(1955,1975,1986,1996,2003),c(123,105,96,64,56)+c(15,16,15,8,6),length=0.05,angle=90,code=3);par(new=T);plot(c(1955),c(122.7),pch=2,xlim=range(1950,2015),ylim=range(35,150),xlab='',ylab='',axes=F);par(new=T);plot(c(1962),c(82.6),pch=3,xlim=range(1950,2015),ylim=range(35,150),xlab='',ylab='',axes=F);par(new=T);plot(c(1980,1987,1988,1991,1992,1995,1996,1998,2002,2003,2004,2005,2006,2007,2008,2010,2011,201,2014),c(58.0,52.9,52.2,51.9,50.3,50.1,49.0,48.0,49.2,48.6,48.7,47.5,47.5,46.4,45.2,43.7,44.9,44.8,44.1),pch=16,xlim=range(1950,2015),ylim=range(35,150),xlab='',ylab='',axes=F);arrows(c(1980,1987,1988,1991,1992,1995,1996,1998,2002,2003,2004,2005,2006,2007,2008,2010,2011,201,2014),c(58.0,52.9,52.2,51.9,50.3,50.1,49.0,48.0,49.2,48.6,48.7,47.5,47.5,46.4,45.2,43.7,44.9,44.8,44.1)-c(7.0,4.4,4.4,4.4,4.4,4.4,4.4,4.4,4.5,4.4,4.3,4.3,4.1,4.1,4.2,4.0,4.1,4.1,3.9),c(1980,1987,1988,1991,1992,1995,1996,1998,2002,2003,2004,2005,2006,2007,2008,2010,2011,201,2014),c(58.0,52.9,52.2,51.9,50.3,50.1,49.0,48.0,49.2,48.6,48.7,47.5,47.5,46.4,45.2,43.7,44.9,44.8,44.1)+c(7.0,4.4,4.4,4.4,4.4,4.4,4.4,4.4,4.5,4.4,4.3,4.3,4.1,4.1,4.2,4.0,4.1,4.1,3.9),length=0.05,angle=90,code=3);par(new=T);plot(c(2000),c(53.9),pch=7,xlim=range(1950,2015),ylim=range(35,150),xlab='',ylab='',axes=F);par(new=T);plot(c(2010),c(46),pch=9,xlim=range(1950,2015),ylim=range(35,150),xlab='',ylab='',axes=F)

Source

Plotted from the sources linked in the description using RStudio

Date

24 October 2019

Author

Jo-Jo Eumerus

Permission
(Reusing this file)

See below.


Other information

The margin of error code was adapted from the one displayed here

Licensing

I, the copyright holder of this work, hereby publish it under the following license:

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current11:32, 24 October 2019Thumbnail for version as of 11:32, 24 October 2019615 × 504 (88 KB)imagesenwiki>Jo-Jo EumerusUploading a self-made file using File Upload Wizard

The following page uses this file:

Metadata