muschellij2 · January 23, 2019 22:34
diff --git a/Ioannidis_publications_scopus.R b/Ioannidis_publications_scopus.R
 # Nature article: https://www.nature.com/articles/d41586-018-06185-8
 library(rscopus)
 library(lubridate)
 library(dplyr)
 x = author_data(first_name = "john", last_name = "Ioannidis")


 df = x$df
 df$date = ymd(df$`prism:coverDate`)
 df$year = year(df$date)
 df %>% 
 	count(year)
 # 
 # 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 
 # 2    6    9    6   19   12   22   41   21   44   36   51   42   46   46   59 
 # 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019 
 # 48   69   71   75   75   50   65   54   72    4
	# Nature article: https://www.nature.com/articles/d41586-018-06185-8
	library(rscopus)
	library(lubridate)
	library(dplyr)
	x = author_data(first_name = "john", last_name = "Ioannidis")


	df = x$df
	df$date = ymd(df$`prism:coverDate`)
	df$year = year(df$date)
	df %>%
	count(year)
	#
	# 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009
	# 2 6 9 6 19 12 22 41 21 44 36 51 42 46 46 59
	# 2010 2011 2012 2013 2014 2015 2016 2017 2018 2019
	# 48 69 71 75 75 50 65 54 72 4