Libraries

library(tidyverse)
library(scholar)

Get Scholar ID

vin <- get_scholar_id(last_name = "Were", 
                     first_name = "Vincent", 
                     affiliation = NA)

Plot Citation History

# Get citations
citations <- get_citation_history(vin)

# Plot trend of citations 
citations %>% 
  ggplot(aes(x = year, y = cites)) + 
  geom_line() + 
  geom_point()+
  scale_x_continuous(breaks = unique(citations$year))+
  scale_y_continuous(breaks = seq(from = 0, to = max(citations$cites), by = 20))+
  geom_text(label = citations$cites,
            nudge_x = 0.25, nudge_y = 0.1, 
            check_overlap = TRUE,
            size = 2.5)+
  labs(title = "Citations of Publications by Dr.Vincent Were",
       x = "Year",
       y = "Citations",
       caption = "Source: Google Scholar")+
  theme(panel.border = element_blank(), 
        panel.background = element_blank(),
        plot.title = element_text(hjust = 0.5),
        axis.line = element_line(colour = "black"))

Co-authors

coauthors <- get_coauthors(vin)
plot_coauthors(coauthors)