diff --git a/webpage/crest-use-01.png b/webpage/crest-use-01.png index c3a9972..b32be2d 100644 Binary files a/webpage/crest-use-01.png and b/webpage/crest-use-01.png differ diff --git a/webpage/crest-use-02.png b/webpage/crest-use-02.png index 440ce23..5625362 100644 Binary files a/webpage/crest-use-02.png and b/webpage/crest-use-02.png differ diff --git a/webpage/crest-use-03.png b/webpage/crest-use-03.png index cadaa44..8715feb 100644 Binary files a/webpage/crest-use-03.png and b/webpage/crest-use-03.png differ diff --git a/webpage/crest-use.R b/webpage/crest-use.R index dd40d7d..6b2d94d 100644 --- a/webpage/crest-use.R +++ b/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,9 +48,9 @@ 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))) @@ -58,7 +58,7 @@ png("/Users/palaeosaurus/GitHub/Rpackages/crestr/webpage/crest-use-01.png", widt } 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() diff --git a/webpage/crest-use.csv b/webpage/crest-use.csv index 8ecf2df..1911053 100644 --- a/webpage/crest-use.csv +++ b/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 \ No newline at end of file +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 \ No newline at end of file