pacman::p_load(scholar) dta <- get_citation_history('m9IzwP8AAAAJ')
plot(dta, xlab="Year", ylab="Citations", type='h', lwd=2, xaxt="n", xlim = c(2013, 2020)) axis(side=1, at=seq(2013, 2020, by=1), cex.axis=0.7) abline(h=seq(0, 400, by=200), lty=2, col="red")
