File:Coropuna ice cap extent 1950-2015.svg

Size of this PNG preview of this SVG file: 615 × 504 pixels. Other resolutions: 293 × 240 pixels | 586 × 480 pixels | 937 × 768 pixels | 1,250 × 1,024 pixels | 2,499 × 2,048 pixels.

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

✓ The source code of this SVG is valid.

Summary

File information
Description	A combination of various measurements of the size of the Quelccaya ice cap from 1950 to 2015. 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 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:

This work is licensed under the Creative Commons Attribution-ShareAlike 4.0 License.

File history

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

	Date/Time	Thumbnail	Dimensions	User	Comment
current	17:32, 24 October 2019		615 × 504 (88 KB)	Jo-Jo Eumerus (talk \| contribs)	Uploading a self-made file using File Upload Wizard

You cannot overwrite this file.

File usage

The following page uses this file:

Coropuna

Metadata

This file contains additional information, probably added from the digital camera or scanner used to create or digitize it.

If the file has been modified from its original state, some details may not fully reflect the modified file.

Width	492pt
Height	403pt