[chronojump] chronojumpScholarGraph.R with bars, line and almost all 2020

[Xavier de Blas <xaviblas src gnome org>]

commit 229a842379b8f641e9985cedaa2dc5ee65c5c428
Author: Xavier de Blas <xaviblas gmail com>
Date:   Mon Nov 23 00:45:37 2020 +0100

    chronojumpScholarGraph.R with bars, line and almost all 2020

 r-scripts/chronojumpScholarGraph.R | 12 ++++++++++++
 1 file changed, 12 insertions(+)
---
diff --git a/r-scripts/chronojumpScholarGraph.R b/r-scripts/chronojumpScholarGraph.R
index 87466798..4f39c42a 100644
--- a/r-scripts/chronojumpScholarGraph.R
+++ b/r-scripts/chronojumpScholarGraph.R
@@ -1,5 +1,17 @@
+#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
+
+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)