[chronojump/optimizeRFD] Updated chronojumpScholarGraph.R with 2020 data and a curve

[Xavier Padullés <xpadulles src gnome org>]

commit bbee8b2d3e548f1b4a820e9d84f3b29092aea808
Author: Xavier de Blas <xaviblas gmail com>
Date:   Sat Jan 2 12:12:31 2021 +0100

    Updated chronojumpScholarGraph.R with 2020 data and a curve

 r-scripts/chronojumpScholarGraph.R | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)
---
diff --git a/r-scripts/chronojumpScholarGraph.R b/r-scripts/chronojumpScholarGraph.R
index 4f39c42a1..753ee7517 100644
--- a/r-scripts/chronojumpScholarGraph.R
+++ b/r-scripts/chronojumpScholarGraph.R
@@ -1,17 +1,10 @@
-#2019
-years = seq(from=2004, to=2019, by=1)
-results = c(1,5,2,1,0,1,1,5,10,10,22,20,44,51,70,81)
-png(filename="chronojumpScholarGraph.png", width=756, height=500, units="px")
-barplot(results, names.arg=years, las=2, main="New results of 'Chronojump' on Google Scholar by years", 
sub="Excluding cites and patents", col=rev(heat.colors(length(years))))
-dev.off()
-
-
-#2020
 years = seq(from=2004, to=2020, by=1)
-results = c(1,5,2,1,0,1,1,5,10,10,22,20,44,51,70,81,120) #waiting until end of year
+results = c(1,5,2,1,0,3,2,6,14,12,26,24,45,50,79,98,140)
 
+png(filename="chronojumpScholarGraph.png", width=756, height=500, units="px")
 bp = barplot(results, names.arg=years, las=2, main="New results of 'Chronojump' on Google Scholar by years", 
sub="Excluding cites and patents", col=rev(heat.colors(length(years))))
 fit <- lm(results ~ poly(bp[,1], 3))
 x0 <- seq(min(bp[,1]), max(bp[,1]), length = length(results))
 y0 <- predict.lm(fit, newdata = list(x = x0))
 lines(x0,y0, lwd=2)
+dev.off()