Update crest applications worldwide

webpage/crest-use.R

@@ -25,7 +25,7 @@ sites.eqearth=sp::spTransform(sites, sp::CRS("+proj=eqearth +lon_0=0 +x_0=0 +y_0
 
 
 
-max_year=2023
+max_year=2024
 png("/Users/palaeosaurus/GitHub/Rpackages/crestr/webpage/crest-use-01.png", width=8, height=2.5, units='in', res=150)  ;  {
     layout(matrix(c(1,2), ncol=2, byrow=TRUE), width=1, height=1)
 
@@ -39,7 +39,7 @@ png("/Users/palaeosaurus/GitHub/Rpackages/crestr/webpage/crest-use-01.png", widt
     }
     par(mgp=c(0,0.5,0))
     axis(1, at=c(2013, max_year+1), labels=FALSE, tck=0)
-    axis(1, at=seq(2013.5, max_year+0.5, 1), labels=2013:max_year)
+    axis(1, at=seq(2013.5, max_year+0.5, 1), labels=2013:max_year, cex.axis=0.8)
 
     par(mgp=c(0.5,0.7,0))
     axis(2, at=seq(0, max(table(dat.unique.study[, 'Year'])), 1), las=2)
@@ -48,17 +48,17 @@ png("/Users/palaeosaurus/GitHub/Rpackages/crestr/webpage/crest-use-01.png", widt
 
 
     par(mar=c(2,1,2,4), cex=1, ps=8, xaxs='i', yaxs='i', cex.axis=0.9)
-    plot(0, 0, type='n', frame=FALSE, axes=FALSE, xlim=c(0, 6), ylim=c(0, max(table(dat.unique.site[, 'Continent']))), main='# Sites / Continent', cex.main=1.5, xlab='', ylab='')
+    plot(0, 0, type='n', frame=FALSE, axes=FALSE, xlim=c(0, 7), ylim=c(0, max(table(dat.unique.site[, 'Continent']))), main='# Sites / Continent', cex.main=1.5, xlab='', ylab='')
     pos <- 0
-    for(r in c('Africa', 'Asia', 'Europe', 'N. America', 'S. America', 'Oceania')) {
+    for(r in c('Africa', 'Antarctica', 'Asia', 'Europe', 'N. America', 'S. America', 'Oceania')) {
         rect(pos+0.1, 0, pos+0.9, sum(dat.unique.site[, 'Continent'] == r), col='goldenrod3')
         pos <- pos + 1
         print(c(r, sum(dat.unique.site[, 'Continent'] == r)))
 
     }
     par(mgp=c(0,0.5,0))
     axis(1, at=c(0,6), labels=FALSE, tck=0)
-    axis(1, at=seq(0.5, 5.5, 1), labels=c('Africa', 'Asia', 'Europe', 'N. Amer.', 'S. Amer.', 'Oceania'))
+    axis(1, at=seq(0.5, 6.5, 1), labels=c('Africa', 'Antarctica', 'Asia', 'Europe', 'N. Amer.', 'S. Amer.', 'Oceania'), cex.axis=0.8)
     par(mgp=c(0.5,0.7,0))
     axis(4, at=seq(0, max(table(dat.unique.site[, 'Continent'])), 3), las=2)
     axis(4, at=c(0, max(table(dat.unique.site[, 'Continent']))), labels=FALSE, tck=0)
@@ -91,12 +91,12 @@ png("/Users/palaeosaurus/GitHub/Rpackages/crestr/webpage/crest-use-03.png", widt
 
 
     w <- timecov[, 1] >= 1000
-    plot(1,0, type='n', frame=FALSE, axes=FALSE, ylim=c(0, max(timecov[w, 2]))*1.05, xlim=range(timecov[w, 1]), log='x', main='\n# Reconstructions across time (years BP)', cex.main=1.5, xlab='', ylab='')
+    plot(1,0, type='n', frame=FALSE, axes=FALSE, ylim=c(0, max(timecov[w, 2]))*1.05, xlim=range(timecov[w, 1]), log='x', main='\n# Reconstructions across time (thousand of years BP)', cex.main=1.5, xlab='', ylab='')
     polygon(c(1000, timecov[w, 1], max(timecov[w, 1])), c(0, timecov[w, 2], 0))
     par(mgp=c(0,0.5,0))
-    axis(1, at=c(1001, 2000, 5000, 10000, 20000, 50000, 100000, 200000, 500000, 1000000, 2000000, 5000000, 10000000, 20000000), labels=c('1000', '2000', '5000', '10,000', '20,000', '50,000', '100,000', '200,000', '500,000', '1,000,000', '2,000,000', '5,000,000', '10,000,000', '20,000,000'))
+    axis(1, at=c(1001, 2000, 5000, 10000, 20000, 50000, 100000, 200000, 500000, 1000000, 2000000, 5000000, 10000000, 20000000, 50000000), labels=c('1', '2', '5', '10', '20', '50', '100', '200', '500', '1,000', '2,000', '5,000', '10,000', '20,000', '50,000'))
     par(mgp=c(0.5,0.7,0))
-    axis(2, at=seq(0, max(timecov[w, 2]), 2), las=2)
+    axis(2, at=seq(0, max(timecov[w, 2]), 4), las=2)
     axis(2, at=c(0, max(timecov[w, 2])), labels=FALSE, tck=0)
 
 }  ;  dev.off()

webpage/crest-use.csv

@@ -42,4 +42,45 @@ Gibson_etal_2022,2022,Europe,"Brassington Formation, Kenslow Member 1, ",-1.7,53
 Gibson_etal_2022,2022,Europe,"Coralline Crag Formation, Ramsholt Member",1.6,52.2,3700000,4500000,Quantitative
 Gibson_etal_2022,2022,Europe,Red Crag Formation,1.4,51.8,2600000,3000000,Quantitative
 Hui_etal_2023,2023,Asia,Tianshui Basin (YD section),105.9166667,34.63333333,6300000,10800000,Quantitative
-Hui_etal_2023b,2023,Asia,Nanyu,104.9,37.7,13600000,15970000,Quantitative
+Hui_etal_2023b,2023,Asia,Nanyu,104.9,37.7,13600000,15970000,Quantitative
+Okeefe_2024,2024,N. America,Bouie River,-89.31,31.35,11600000,17000000,Quantitative
+Okeefe_2024,2024,N. America,Alum Bluff,-84.986,30.469,15000000,40000000,Quantitative
+Okeefe_2024,2024,N. America,Clarkia (All),-116.269,46.998,15140000,82000000,Quantitative
+Okeefe_2024,2024,N. America,Clarkia (Megafossils),-116.269,46.998,15140000,64000000,Quantitative
+Okeefe_2024,2024,N. America,Clarkia (Pollen),-116.269,46.998,15140000,37000000,Quantitative
+Okeefe_2024,2024,N. America,Trapper Creek,-114.079,42.134,12690000,16000000,Quantitative
+Pilie,2023,Antarctica,McMurdo Sound,165.2768833,-77.75813333,15600000,16400000,Quantitative
+McCoy_2024,2024,Europe,Washing Bay,-6.60,54.54,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,Bovey,-3.92,50.57,27820000,33900000,Quantitative
+McCoy_2024,2024,Europe,Ballynakilly,-9.96,53.56,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,Bellbrook,-6.25,54.61,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,Mire House,-6.75,54.55,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,Petrockstowe,-4.13,51.00,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,Little Minch (80/14) ALL,-5.97,58.06,25500000,31800000,Quantitative
+McCoy_2024,2024,Europe,St. Agnes Beacon,-5.23,50.31,27820000,33900000,Quantitative
+McCoy_2024,2024,Europe,73/35,-4.59,51.19,23030000,27820000,Quantitative
+McCoy_2024,2024,Europe,73/58,-4.41,51.19,23030000,27820000,Quantitative
+McCoy_2024,2024,Europe,Ballygiblin,-8.52,52.22,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,Ballymacadam,-9.43,52.24,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,16/16B-A,1.23,58.80,26300000,32100000,Quantitative
+McCoy_2024,2024,Europe,21/28-A,-3.10,57.82,26600000,33000000,Quantitative
+McCoy_2024,2024,Europe,80/14-A,-6.92,57.77,25500000,31800000,Quantitative
+McCoy_2024,2024,Europe,88/12-A,-6.99,56.84,27050000,31800000,Quantitative
+McCoy_2024,2024,Europe,78/01-A,-7.32,56.74,25600000,33900000,Quantitative
+McCoy_2024,2024,Europe,77/07-B,-4.61,61.51,23030000,31700000,Quantitative
+McCoy_2024,2024,Europe,73/36-A,-4.65,51.25,25800000,33900000,Quantitative
+McCoy_2024,2024,Europe,LNA,-6.62,54.65,25800000,31650000,Quantitative
+McCoy_2024,2024,Europe,LNB,-6.62,54.65,25800000,31650000,Quantitative
+McCoy_2024,2024,Europe,LNC,-6.62,54.65,25800000,31650000,Quantitative
+McCoy_2024,2024,Europe,LND,-6.62,54.65,25800000,31650000,Quantitative
+McCoy_2024,2024,Europe,Castlemartin,-4.99,51.61,15970000,23000000,Quantitative
+McCoy_2024,2024,Europe,LN_13611,-6.58,54.99,23030000,27820000,Quantitative
+McCoy_2024,2024,Europe,LN_27415,-6.55,54.68,23030000,27820000,Quantitative
+McCoy_2024,2024,Europe,LN_603,-6.40,55.11,23030000,27820000,Quantitative
+McCoy_2024,2024,Europe,LN_36_4680,-6.40,54.56,23030000,27820000,Quantitative
+McCoy_2024,2024,Europe,Mochras (1),-4.14,52.81,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,Mochras (2),-4.14,52.81,15970000,33900000,Quantitative
+McCoy_2024,2024,Europe,515.42,-4.14,52.81,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,408.43,-4.14,52.81,23000000,33900000,Quantitative
+McCoy_2024,2024,Europe,368.8,-4.14,52.81,15970000,33900000,Quantitative
+McCoy_2024,2024,Europe,368.2,-4.14,52.81,15970000,33900000,Quantitative