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



commit 0449029e5f36e11de2f93e83a0d6124c3d51bd1e
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()


[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]