File:Coropuna ice cap extent 1950-2015.svg

From Wikipedia, the free encyclopedia

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

Summary[edit]

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[edit]

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
current17:32, 24 October 2019Thumbnail for version as of 17:32, 24 October 2019615 × 504 (88 KB)Jo-Jo Eumerus (talk | contribs)Uploading a self-made file using File Upload Wizard
The following pages on the English Wikipedia use this file (pages on other projects are not listed):

Metadata