File:GISS Global Land Ocean Index 201505.svg
Original file (SVG file, nominally 900 × 720 pixels, file size: 107 KB)
✓
The source code of this SVG is valid.
Summary[edit]
| Description |
NASA GISS Global Land-Ocean Temperature Index (C) (Anomaly with Base: 1951-1980) SVG graphic redrawn as an update for the graph on Global_warming_hiatus by Drf5n (talk) 15:44, 5 June 2015 (UTC) The generation code in R_(programming_language): library(ggplot2); library(reshape2) ; library(scales)
giss<-read.table(
'http://data.giss.nasa.gov/gistemp/graphs_v3/Fig.A2.txt',
skip=4,nrows=2015-1880+1,na.strings='*',col.names=c('Year','Annual','Avg_5y'))
p <- ggplot(melt(giss,id='Year',value.name='C'),
aes(x=Year,y=C,colour=variable))+
geom_line()+
theme(legend.justification=c(0,1), legend.position=c(0,1))+
ggtitle("Global Land-Ocean Temperature Index (C)\n (Anomaly with Base: 1951-1980)") +
scale_colour_discrete(name="Time Series of annual anomalies",
breaks=c("Annual","Avg_5y"),labels=c("Annual Mean","5-year_Mean"))+
scale_x_continuous(breaks=pretty_breaks(n=20))
ggsave("GISS_Global_Land_Ocean_Index_201505.svg",plot=p,width=10, height=8)
|
|---|---|
| Source |
Own work |
| Date | |
| Author | |
| Permission (Reusing this file) |
See below.
|
Drf5n (talk) 15:44, 5 June 2015 (UTC)
Licensing[edit]
  | This file is made available under the Creative Commons CC0 1.0 Universal Public Domain Dedication.
The person who associated a work with this deed has dedicated the work to the public domain by waiving all of his or her rights to the work worldwide under copyright law, including all related and neighboring rights, to the extent allowed by law. You can copy, modify, distribute and perform the work, even for commercial purposes, all without asking permission. |
File history
Click on a date/time to view the file as it appeared at that time.
| Date/Time | Thumbnail | Dimensions | User | Comment | |
|---|---|---|---|---|---|
| current | 15:44, 5 June 2015 | | 900 × 720 (107 KB) | Drf5n (talk | contribs) | ~~~~ Generated with <pre> library(ggplot2); library(reshape2) ; library(scales) giss<-read.table( 'http://data.giss.nasa.gov/gistemp/graphs_v3/Fig.A2.txt', skip=4,nrows=2015-1880+1,na.strings='*',col.names=c('Year','Annual','Avg_5y')) p <- ggplo... |
You cannot overwrite this file.
