Giới thiệu

Phần này chúng ta sẽ chơi một game nhỏ với dữ liệu từ Google Scholar. Cụ thể chúng ta sẽ so sánh xu hướng trích dẫn (hay mức độ nổi tiếng trong giới kinh tế lượng) của bốn tên tuổi lớn là:

1. A. Sims
2. W. Greene
3. C. Grange
4. J. Wooldridge.

Dữ liệu được lấy từ Google Scholar với sự hỗ trợ của gói scholar.

# Gọi gói: 
library(scholar)
# Mã trên Google Scholar của bốn  tác giả: 
id <- c("faE3_ksAAAAJ&hl=vi",
        "uXNOHdAAAAAJ&hl=vi", 
        "yGK7HigAAAAJ&hl=vi", 
        "Q92731gAAAAJ&hl=vi")
# Lấy dữ liệu: 
total <- data.frame()
for (i in 1:4) {
  pro <- get_profile(id[i])
  cites <- get_citation_history(id[i])
  cites$Author <- rep(pro$name, nrow(cites))
  total <- rbind(total, cites)
}

# Xem qua dữ liệu: 
total

##    year cites                Author
## 1  2009  4408 Jeffrey M. Wooldridge
## 2  2010  4914 Jeffrey M. Wooldridge
## 3  2011  5389 Jeffrey M. Wooldridge
## 4  2012  5883 Jeffrey M. Wooldridge
## 5  2013  6384 Jeffrey M. Wooldridge
## 6  2014  6809 Jeffrey M. Wooldridge
## 7  2015  7204 Jeffrey M. Wooldridge
## 8  2016  7623 Jeffrey M. Wooldridge
## 9  2017  4804 Jeffrey M. Wooldridge
## 10 2009  2530      Christopher Sims
## 11 2010  2617      Christopher Sims
## 12 2011  2755      Christopher Sims
## 13 2012  3139      Christopher Sims
## 14 2013  3205      Christopher Sims
## 15 2014  3145      Christopher Sims
## 16 2015  3147      Christopher Sims
## 17 2016  3504      Christopher Sims
## 18 2017  1862      Christopher Sims
## 19 2009  5597        William Greene
## 20 2010  5638        William Greene
## 21 2011  5771        William Greene
## 22 2012  6128        William Greene
## 23 2013  6425        William Greene
## 24 2014  6582        William Greene
## 25 2015  6236        William Greene
## 26 2016  6708        William Greene
## 27 2017  3902        William Greene
## 28 2009  7124         Clive Granger
## 29 2010  7521         Clive Granger
## 30 2011  8011         Clive Granger
## 31 2012  8817         Clive Granger
## 32 2013  9077         Clive Granger
## 33 2014  8853         Clive Granger
## 34 2015  8760         Clive Granger
## 35 2016  8994         Clive Granger
## 36 2017  5043         Clive Granger

# Vẽ chơi: 

library(tidyverse)
theme_set(theme_minimal())
total %>% 
  filter(year != 2017) %>% 
  mutate(HT = case_when(year == 2016 ~ "Y", year != 2016 ~ "N")) %>% 
  ggplot(aes(year, cites, fill = HT)) + 
  geom_col(show.legend = FALSE) + 
  scale_fill_manual(values = c("#7F7F7F", "#FF3030")) + 
  labs(x = NULL, 
       y = "Google Scholar\n cites", 
       title = "Google Scholar Citations: The most Popular Econometricians") + 
  scale_x_continuous(breaks = seq(2009, 2016, by = 1)) + 
  facet_wrap(~ Author, scales = "free")

Trong bốn tác giả này, A. Sims là người từng dành giải Nobel kinh tế năm 2011. Tuy vậy, kết quả khá bất ngờ: so với các tác giả khác, các nghiên cứu của ông không được trích dẫn nhiều.

Có lẽ bài viết của ông không dành cho bạn đọc phổ thông.