Wikimedia Commons

File:Puyuk lake stacked 10 1.svg

Original file ‎(SVG file, nominally 900 × 360 pixels, file size: 95 KB)

Captions

Captions

Pollen diagram of Puyuk Lake, first 10 species

Summary

edit
Description
English: Pollen diagram of Puyuk Lake, first 10 pollen species
Date
Source Own work
Author Merikanto
Camera location63° 30′ 00″ N, 162° 12′ 00″ W  Heading=1° Kartographer map based on OpenStreetMap.View this and other nearby images on: OpenStreetMapinfo

This image is based data from Neotoma, item "Puyuk Lake", 2021

Puyuk Lake Site ID 1920 Longitude -162,2 Latitude 63,5 Description Maar crater on volcanic island. Physiography: subdued rounded hills and volcanic cones. Surrounding vegetation: mesic low-shrub tundra.

PIs: Ager, Thomas A.

Ager, T.A. 1980. A 16,000 year pollen record from St. Michael Island, Norton Sound, western Alaska. Page 3 in American Quaternary Association, Sixth Biennial Meeting, Abstracts and Program, 18-20 August 1980. Institute for Quaternary Studies, University of Maine, Orono, Maine, USA.

Ager, T.A. 1982. Vegetational history of western Alaska during the WIsconsin glacial interval and the Holocene. Pages 75-93 in D.M. Hopkins, J.V. Matthews, Jr., C.E. Schweger, and S.B. Young, editors. Paleoecology of Beringia. Academic Press, New York, New York, USA.

Ager, T.A., and J.P. Bradbury. 1982. Quaternary history of vegetation and climate of the Yukon Delta-Norton Sound Area. In W.L. Conrad, editor. The United States Geological Survey in Alaska: Accomplishments during 1981. U.S. Geological Survey Circular 868:103-105.

Ager, T.A., and L.B. Brubaker. 1985. Quaternary palynology and vegetational history of Alaska. Pages 353-384 in V.M. Bryant, Jr. and R.G. Holloway, editors. Pollen records of late Quaternary North American sediments. American Association of Stragigraphic Palynologists Foundation, Dallas, Texas, USA.

PIs: Ager, Thomas A.

Ager, T.A. 1980. A 16,000 year pollen record from St. Michael Island, Norton Sound, western Alaska. Page 3 in American Quaternary Association, Sixth Biennial Meeting, Abstracts and Program, 18-20 August 1980. Institute for Quaternary Studies, University of Maine, Orono, Maine, USA.

Ager, T.A. 1982. Vegetational history of western Alaska during the WIsconsin glacial interval and the Holocene. Pages 75-93 in D.M. Hopkins, J.V. Matthews, Jr., C.E. Schweger, and S.B. Young, editors. Paleoecology of Beringia. Academic Press, New York, New York, USA.

Ager, T.A., and J.P. Bradbury. 1982. Quaternary history of vegetation and climate of the Yukon Delta-Norton Sound Area. In W.L. Conrad, editor. The United States Geological Survey in Alaska: Accomplishments during 1981. U.S. Geological Survey Circular 868:103-105.

Ager, T.A., and L.B. Brubaker. 1985. Quaternary palynology and vegetational history of Alaska. Pages 353-384 in V.M. Bryant, Jr. and R.G. Holloway, editors. Pollen records of late Quaternary North American sediments. American Association of Stragigraphic Palynologists Foundation, Dallas, Texas, USA.

Palette [1]

Data to plot

"age_bp";"Alnus";"Betula";"Salix";"Populus";"Poaceae";"Cyperaceae";"Artemisia";"Rumex/Oxyria digyna";"Polypodiaceae";"Lycopodiaceae undiff.";"Equisetum";"Sphagnum";"Isoëtes";"Pediastrum" 26;60.8247422680412;5.67010309278351;0.515463917525773;0;4.63917525773196;2.06185567010309;0.515463917525773;0.257731958762887;17.0103092783505;0.515463917525773;0.257731958762887;0.257731958762887;0;1.28865979381443 518;53.1862745098039;7.84313725490196;0.245098039215686;0;7.59803921568627;2.20588235294118;0.490196078431373;0.735294117647059;20.343137254902;0.245098039215686;0;0.245098039215686;0;1.47058823529412 1065;63.5883905013193;4.48548812664908;0.527704485488127;0;7.12401055408971;0.79155672823219;0.527704485488127;0;16.3588390501319;0.263852242744063;0;0.79155672823219;0;1.58311345646438 1612;60.6060606060606;6.06060606060606;0.757575757575758;0;4.29292929292929;2.77777777777778;0.757575757575758;0.252525252525253;19.4444444444444;0.505050505050505;0;0.757575757575758;0;0.757575757575758 2159;59.4666666666667;6.13333333333333;0.533333333333333;0;7.73333333333333;2.4;0.266666666666667;0;13.0666666666667;0;0.8;0;0;3.46666666666667 2706;61.0966057441253;6.26631853785901;0;0;5.48302872062663;0.261096605744125;0.261096605744125;0;14.621409921671;0.261096605744125;0.261096605744125;0;0;6.26631853785901 3253;54.3367346938776;6.88775510204082;1.02040816326531;0;10.7142857142857;1.53061224489796;0.255102040816327;0.255102040816327;11.2244897959184;0.255102040816327;0.255102040816327;0.76530612244898;0;5.61224489795918 3800;59.2405063291139;7.08860759493671;0.759493670886076;0;5.82278481012658;4.55696202531646;0.253164556962025;0.506329113924051;9.62025316455696;1.51898734177215;0.253164556962025;0.253164556962025;0;4.81012658227848 4348;60.7954545454545;7.67045454545455;1.98863636363636;0;8.52272727272727;2.55681818181818;1.70454545454545;0.284090909090909;3.40909090909091;0.568181818181818;0.284090909090909;0.284090909090909;0;5.96590909090909 5387;47.6525821596244;9.38967136150235;0.469483568075117;0;7.74647887323944;1.17370892018779;0.234741784037559;0.469483568075117;15.4929577464789;0.938967136150235;0.234741784037559;0.704225352112676;0;9.85915492957746 5660;50.7692307692308;13.5897435897436;0.256410256410256;0;6.41025641025641;2.30769230769231;1.02564102564103;1.02564102564103;7.69230769230769;0.769230769230769;0.256410256410256;0.256410256410256;0;10 5989;51.6624040920716;7.67263427109974;0.51150895140665;0;9.97442455242967;4.60358056265985;0.255754475703325;0.51150895140665;11.5089514066496;0.51150895140665;0.255754475703325;0.767263427109974;0;5.37084398976982 6536;52.3160762942779;16.6212534059946;0.817438692098093;0;8.44686648501362;4.35967302452316;0.272479564032698;0.817438692098093;10.3542234332425;0.817438692098093;0;1.08991825613079;0;1.36239782016349 7083;47.3145780051151;15.8567774936061;1.53452685421995;0;8.95140664961637;5.37084398976982;0.255754475703325;0;10.4859335038363;1.79028132992327;0.255754475703325;2.30179028132992;0;2.0460358056266 7630;3.78378378378378;30.4504504504505;1.08108108108108;0;10.0900900900901;5.40540540540541;1.08108108108108;0;20.5405405405405;7.92792792792793;0.18018018018018;13.1531531531532;0;1.44144144144144 8044;3.55731225296443;37.9446640316205;1.18577075098814;0;10.2766798418972;5.73122529644269;0.395256916996047;0.197628458498024;19.5652173913043;6.32411067193676;1.97628458498024;4.54545454545455;0;5.73122529644269 8459;3.04114490161002;24.6869409660107;1.25223613595707;0.178890876565295;12.1645796064401;9.48121645796064;0.178890876565295;0;20.9302325581395;7.15563506261181;0.536672629695885;7.69230769230769;0.35778175313059;7.87119856887299 8874;1.68776371308017;33.3333333333333;1.05485232067511;0;17.0886075949367;1.89873417721519;2.9535864978903;0.210970464135021;14.3459915611814;8.0168776371308;0.210970464135021;0.632911392405063;0.210970464135021;9.49367088607595 9288;2.93542074363992;16.4383561643836;1.56555772994129;0;22.7005870841487;10.3718199608611;1.36986301369863;0.391389432485323;8.21917808219178;3.71819960861057;1.76125244618395;2.5440313111546;2.73972602739726;21.5264187866928 9703;1.79028132992327;48.5933503836317;3.32480818414322;0;18.6700767263427;1.79028132992327;3.58056265984655;0.51150895140665;4.85933503836317;5.62659846547315;0.51150895140665;0.255754475703325;0;5.37084398976982 10117;1.30718954248366;34.4226579520697;1.96078431372549;0;17.8649237472767;6.31808278867102;2.39651416122004;3.26797385620915;9.15032679738562;3.7037037037037;0.871459694989107;1.74291938997821;0.871459694989107;8.71459694989107 10532;0.522193211488251;56.9190600522193;2.61096605744125;0;15.6657963446475;0.783289817232376;3.1331592689295;0.261096605744125;3.1331592689295;3.39425587467363;1.56657963446475;0;0.261096605744125;7.83289817232376 10946;1.21654501216545;42.8223844282238;2.67639902676399;1.70316301703163;17.2749391727494;9.7323600973236;1.94647201946472;0;9.48905109489051;1.45985401459854;1.45985401459854;1.21654501216545;0;5.59610705596107 11361;0.25;53;4.5;0;14.25;4.5;1.5;0.5;2.5;0.75;1.75;0;0.75;11.25 11651;1.35396518375242;45.2611218568665;2.51450676982592;0;6.76982591876209;3.09477756286267;0.967117988394584;1.54738878143133;11.605415860735;0.386847195357834;2.12765957446809;0.967117988394584;18.7620889748549;1.93423597678917 12107;2.62697022767075;22.9422066549912;3.50262697022767;11.2084063047285;8.93169877408056;3.85288966725044;1.57618213660245;0;12.6094570928196;1.40105078809107;1.75131348511384;1.75131348511384;23.9929947460595;1.92644483362522 12190;1.61290322580645;25.8064516129032;11.2903225806452;8.87096774193548;17.4731182795699;5.91397849462366;1.61290322580645;7.79569892473118;1.0752688172043;0;5.37634408602151;0.537634408602151;4.83870967741935;1.0752688172043 12273;1.70316301703163;26.2773722627737;9.00243309002433;17.0316301703163;16.0583941605839;4.8661800486618;0.48661800486618;0;6.08272506082725;3.16301703163017;2.4330900243309;0;8.27250608272506;3.40632603406326 12397;1.32743362831858;21.2389380530973;8.1858407079646;11.9469026548673;14.3805309734513;4.42477876106195;5.30973451327434;0.221238938053097;5.97345132743363;2.43362831858407;1.99115044247788;1.76991150442478;0;19.4690265486726 12604;3.78250591016548;28.6052009456265;7.56501182033097;0;21.9858156028369;7.56501182033097;3.07328605200946;0.236406619385343;1.6548463356974;0.709219858156028;1.6548463356974;0.236406619385343;0.472813238770686;21.2765957446809 13019;0.576368876080692;36.5994236311239;5.76368876080692;1.72910662824208;19.5965417867435;21.9020172910663;1.15273775216138;0;4.03458213256484;0.288184438040346;1.44092219020173;2.01729106628242;0;2.30547550432277 13434;0.614754098360656;29.5081967213115;2.45901639344262;0;13.5245901639344;13.5245901639344;0.409836065573771;0.409836065573771;1.63934426229508;0.204918032786885;4.50819672131148;0;0;30.7377049180328 13848;0.217864923747277;15.4684095860566;6.97167755991285;0.65359477124183;17.8649237472767;16.7755991285403;6.75381263616558;0.435729847494553;1.08932461873638;0;0;1.08932461873638;0;27.0152505446623 14263;0.226757369614512;0.680272108843537;4.08163265306122;0;44.2176870748299;8.39002267573696;0.90702947845805;6.80272108843537;1.58730158730159;0;0;0;0;25.8503401360544 14802;0.448430493273543;1.34529147982063;5.60538116591928;0;45.2914798206278;3.1390134529148;8.52017937219731;0;0.672645739910314;0.224215246636771;0;0.896860986547085;0;29.5964125560538 15092;0.934579439252336;0.934579439252336;6.54205607476635;0;31.3084112149533;19.8598130841121;2.80373831775701;0.233644859813084;1.4018691588785;0;0;0.233644859813084;0;28.7383177570093 15506;0;0.760456273764259;3.04182509505703;0;30.4182509505703;13.8783269961977;3.42205323193916;0.190114068441065;0.190114068441065;0;0;0.190114068441065;0;41.6349809885932 15921;0;0;4.86111111111111;0;61.4583333333333;25;8.68055555555556;0;0;0;0;0;0;0

R script to plot

    1. R stacked pollen pernect diagram
    2. uses areapolot
    3. percent in 10 first specie item in data,
  3. not in all
  4. 7.12.2021 0000.0002

library(tidyverse) library(areaplot) library(viridis) library(stringr)

  1. stop(-1)

sitenamex1="Puyuk Lake"

infname1<-"out_pollen_3.csv" inpalname1="palette.csv"

outnamex1=tolower(sitenamex1) outnamex1=str_replace_all(outnamex1,' ', '_' ) outnamex1=paste0(outnamex1,"_stacked_10_1.svg") outnamex1

  1. stop(-1)

df<-read.table(infname1,header=TRUE, sep=";", dec=".")

  1. palin<-read.table(inpalname1,header=TRUE, sep=";", dec=".")

palin<-read.csv(inpalname1,header=TRUE, sep=";", dec=".")

head(palin)

pal00=palin$palette

  1. stop(-1)
  1. head(df)
  1. X-axis variable

x <- as.numeric(df$age_bp)

y <- df[,c(2, 3, 4, 5, 6,7,8,9,10,11) ]

ax1=range(x)

ax1

axd1=2000

axb1=as.integer(ax1[1]/axd1)*axd1 axb2=as.integer(ax1[2]/axd1)*axd1

axb1 axb2 axd1 xaxx1=seq(axb1, axb2,axd1)

xaxx1

  1. stop(-1)
  1. col1=inferno(10)

col1=c( '#009999', '#339933', '#336633', '#008000', '#00F000', '#00a000', '#8F8F00', '#ffff00', '#804000', '#FF8080', '#8000F0', 'red', 'orange', 'yellow', '#7777ff', 'blue', 'violet', 'grey', 'darkred', '#00007F', '#336633', '#008000', '#00F000', '#FFFF00', '#FFFF80', '#800000', '#8000F0', 'blue', 'violet', 'grey', 'darkred', '#804000', '#FF8080', '#8000F0', 'red', 'orange', 'yellow')

  1. col1
  2. str(col1)
  1. type(col1)
  1. stop(-1)

print("KKK")

  1. col1=as.color(pal00[-1])
  2. col10=string.to.colors(pal00[-1] )
  1. col10

col1<-as.vector(pal00)

  1. col1=adjust_transparency(col01, alpha = FALSE)
  1. col01
  1. col1<-as.numeric(col01)

col1

  1. stop(-1)

svg(outnamex1, width = 10, height = 4 )

areaplot(x, y, main=sitenamex1, ylab="Pollen proportion", xlab="Age BP", xlim = rev(range(x)), col=col1, legend = TRUE, args.legend = list(x = "topright", cex = 0.65, bg = "white", bty = "o"), prop = TRUE, xaxt='n', yaxt='n', )

axis(side = 1, at = xaxx1)

axis(side = 2, at = c(.25, .50, .75, 1))

dev.off()

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.
  1. ↑ palette
    1. 009999
    2. 339933
    3. 336633
    4. 008000
    5. 00F000
    6. 00a000
    7. 8F8F00
    8. ffff00
    9. 804000
    10. FF8080
    11. 8000F0
    red orange yellow
    1. 7777ff
    blue violet grey darkred
    1. 00007F
    2. 336633
    3. 008000
    4. 00F000
    5. FFFF00
    6. FFFF80
    7. 800000
    8. 8000F0
    blue violet grey darkred
    1. 804000
    2. FF8080
    3. 8000F0
    red orange yellow

File history

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

Date/TimeThumbnailDimensionsUserComment
current13:22, 7 December 2021Thumbnail for version as of 13:22, 7 December 2021900 × 360 (95 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:Puyuk_lake_stacked_10_1.svg&oldid=631043299"