pacman::p_load(scholar)
dta <- get_citation_history('aG2KuDYAAAAJ')
plot(dta, xlab = "Year", ylab = "Citations", type = "h", 
     lwd = 2, xlim = c(2014, 2018), ylim = c(0, 500))
grid()