File:Ngrip data 50yrs 1.svg

From Wikimedia Commons, the free media repository
Jump to navigation Jump to search

Original file ‎(SVG file, nominally 1,350 × 450 pixels, file size: 178 KB)

Captions

Captions

Ngrip ice core oxygen isotope data, 125 000 years

Summary[edit]

Description
English: Greenland ice core Ngrip oxygen isotope data, 125 000 years
Date
Source Own work
Author Merikanto

Generated with R and ggplot.

On year 2021, when you draw this diagram, R script automatically downloads NGRIP 50 yead delta-O18 data and draws diagram.

This plot is based on data from NOAA Iice cores https://www.ncei.noaa.gov/pub/data/paleo/icecore/greenland/summit/ngrip/isotopes/ngrip-d18o-50yr.txt

NAME OF DATA SET: North Greenland Ice Core Project Oxygen Isotope Data LAST UPDATE: 10/2004 (Original receipt by WDC Paleo)

CONTRIBUTOR: Sigfús J. Johnsen, University of Copenhagen. IGBP PAGES/WDCA CONTRIBUTION SERIES NUMBER: 2004-059

SUGGESTED DATA CITATION: North Greenland Ice Core Project members. 2004. North Greenland Ice Core Project Oxygen Isotope Data. IGBP PAGES/World Data Center for Paleoclimatology Data Contribution Series # 2004-059. NOAA/NGDC Paleoclimatology Program, Boulder CO, USA.

ORIGINAL REFERENCE: North Greenland Ice Core Project members. 2004. High-resolution record of Northern Hemisphere climate extending into the last interglacial period. Nature, v.431, No. 7005, pp. 147-151, 9 September 2004.

DATA: NGRIP d18O data, 50 year averages.

Column 1: Age, ss09sea, years before 2000 AD Column 2: delta 18O, permille 

   Age       d18O
     0     -35.19
    50     -35.19
    50     -34.83

    3. download and plot
    4. ngrip 50 yr O-18 data
    6. 21.10.2021 - v 0000.0000

library(ggplot2) library(scales)

library(stringr) library(splitstackshape) library(tidyverse) library(data.table)

age_begin1 =-120000.0 age_end1 = -0.0

y_begin1 =-46.0 y_end1 = -34.0

url <- "https://www.ncei.noaa.gov/pub/data/paleo/icecore/greenland/summit/ngrip/isotopes/ngrip-d18o-50yr.txt"

NGRIP.raw <- read.table(url, blank.lines.skip = T, 

                       header = F,
                       skip = 1,
                       #fill=TRUE, 
                       sep = "\t")

NGRIP.raw<-NGRIP.raw %>% mutate_all(funs(str_replace(., ",", "")))

  1. head(NGRIP.raw, 24)
  2. str(NGRIP.raw)

is.data.frame(NGRIP.raw)

length1=nrow(NGRIP.raw) print(length1)

lokation1<-which(grepl('DATA:', NGRIP.raw$V1 ))

dataitem1<-lokation1+4

taillength1=length1-dataitem1

tali1<-tail(NGRIP.raw, taillength1)


  1. head(tali1,100)

ngrip1<-cSplit(tali1,"V1"," ")

names(ngrip1)<-c("age","delta_O18")

head(ngrip1)

ngrip2<-ngrip1

ngrip2$age<-ngrip2$age*-1

  1. plot(ngrip1$age, ngrip1$delta_O18)
    2. plotting

svg(filename="./ngrip_data_50yrs_1.svg", width=15, height=5, pointsize=12)

ggplot(ngrip2, aes(x =age , y = delta_O18))+ ggtitle("NGRIP delta-O18") + xlab("Time, years from present") + ylab("Delta-O18")+ theme_light()+

theme(title=element_text(size=20), axis.text=element_text(size=18,face="bold"),axis.title=element_text(size=20,face="bold"))+ geom_line(color="#0000ff", size=1)+

  1. geom_hline(yintercept=insol0, linetype="dashed", color = "darkred", size=1)+

scale_y_continuous(limits = c(y_begin1, y_end1), breaks= pretty_breaks(), labels = scales::number_format(accuracy = 1,decimal.mark = '.'))+ 

   scale_x_continuous(limits = c(age_begin1, age_end1),labels = scales::comma_format(big.mark = ' ',decimal.mark = '.'))+
    theme(plot.title = element_text(hjust = 0.5)) ## this must be last item!
                                

dev.off()
  1. Sys.getlocale()

print(".")


Licensing[edit]

I, the copyright holder of this work, hereby publish it under the following license:
w:en:Creative Commons
attribution share alike
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/TimeThumbnailDimensionsUserComment
current11:13, 21 October 2021Thumbnail for version as of 11:13, 21 October 20211,350 × 450 (178 KB)Merikanto (talk | contribs)Uploaded own work with UploadWizard

You cannot overwrite this file.

There are no pages that use this file.

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.

Retrieved from "https://commons.wikimedia.org/w/index.php?title=File:Ngrip_data_50yrs_1.svg&oldid=608149312"