Tạp chí Journal of Economics and Development (JED) được xem là tạp chí hàng đầu của Việt Nam trong lĩnh vực kinh tế. Post này chỉ ra một số insights từ dữ liệu về các papers được đăng trên JED.
Thông tin về các papers được đăng trên tạp chí này (tên paper,
abstract, tên tác giả, affiliation, số trích dẫn sử dụng cho bài viết,
số lần được các tác giả khác trích dẫn…) có thể thu được bằng hàm
cr_works() của thư viện rcrossref. Dưới đây là
R codes lấy và xử lí sơ bộ dữ liệu:
#===============================
# Load dữ liệu và xử lí sơ bộ
#===============================
# Load một số packages:
library(dplyr)
library(ggplot2)
library(stringr)
library(rcrossref)
library(tidytext)
library(topicmodels)
library(SnowballC)
library(kableExtra)
# Lấy tối đa 500 papers thuộc tạp chí JED từ 2022:
rm(list = ls())
res <- cr_works(filter = list(container_title = "Journal of Economics and Development"),
limit = 500)
# Xử lí dữ liệu thu được:
res$data %>%
filter(!str_detect(doi, "vi")) %>%
filter(!is.na(abstract)) %>%
filter(language == "en") %>%
mutate(abstract = str_remove_all(abstract, "<jats.*?p>")) %>%
mutate(abstract = str_remove_all(abstract, "<jats.*?ec>")) %>%
mutate(abstract = str_remove_all(abstract, "</jats.*?ec>")) %>%
mutate(abstract = str_remove_all(abstract, "\\n<jats.*?title>\\n")) %>%
mutate(abstract = str_remove_all(abstract, "</jats[^\\n]*?\\n")) %>%
mutate(abstract = str_remove_all(abstract, "</jats:p>")) %>%
mutate(abstract = str_replace_all(abstract, "\n", " ")) %>%
mutate(id = 1:nrow(.)) -> papersAbstracts
papersAbstracts %>%
mutate(references.count = as.integer(references.count),
is.referenced.by.count = as.integer(is.referenced.by.count)) -> papersAbstracts
#==========================================
# Một số insights về mẫu paper được đăng
#==========================================
papersAbstracts$url -> paperURL
N <- length(paperURL)
dfAuthors <- data.frame()
for (j in 1:N) {
dfAuthors <- bind_rows(papersAbstracts$author[[j]] %>% mutate(url = paperURL[j]), dfAuthors)
}
# do.call("bind_rows", papersAbstracts$funder) -> dfFunders
dfAuthors %>%
mutate(affiliation.name = case_when(str_detect(affiliation.name, "onnal") ~ "National Economics University, Vietnam",
str_detect(affiliation.name, "ietmam") ~ "National Economics University, Vietnam",
TRUE ~ affiliation.name)) -> dfAuthors
dfAuthors %>% filter(sequence == "first") -> dfAuthorsFirst
dfAuthorsFirst %>%
group_by(affiliation.name) %>%
count(sort = TRUE) %>%
ungroup() -> dfAffiliationCó tất cả 293 papers được đăng trên tạp chí này. Trong số đó có 156 papers có đầy đủ thông tin của các tác giả bài viết cũng như affiliation tương ứng. Affiliation tương ứng với first author thì nhiều nhất là NEU (62 bài, 40% tổng số bài), kế tiếp là FTU (11 bài, 7%) và thứ ba là UEH (5 bài, 3%). Các đại học/viên nghiên cứu còn lại số bài đăng là 2 hoặc 1 (Table 1).
dfAffiliation %>%
filter(!is.na(affiliation.name)) %>%
mutate(per = 100*n / sum(n)) %>%
slice(1:10) %>%
mutate(per = round(per, 1)) %>%
kbl(caption = "Table 1: Paper Publishing by Affiliation (top 10)", escape = TRUE) %>%
kable_classic(full_width = TRUE, html_font = "Cambria")| affiliation.name | n | per |
|---|---|---|
| National Economics University, Vietnam | 62 | 39.7 |
| Foreign Trade University, Vietnam | 11 | 7.1 |
| University of Economics Ho Chi Minh City, Vietnam | 5 | 3.2 |
| Can Tho University, Vietnam | 3 | 1.9 |
| Banking University of Ho Chi Minh City, Vietnam | 2 | 1.3 |
| Central Institute for Economic Management, Vietnam | 2 | 1.3 |
| Hanoi University, Vietnam | 2 | 1.3 |
| Madda Walabu University, Ethiopia | 2 | 1.3 |
| Thai Nguyen University of Economics and Business Administration, Vietnam | 2 | 1.3 |
| University of Adelaide, Australia | 2 | 1.3 |
Số lần được trích dẫn thể hiện ảnh hưởng (và có thể là chất lượng) của các bài viết được đăng. Trung vị số lần được trích dẫn là 3. Tức là một nửa số paper đăng trên JED có số lần được trích dẫn là 3, 2, 1 hoặc 0.
## 0% 25% 50% 75% 100%
## 0 1 3 7 80Tuy nhiên cũng có một số bài có số lần được trích dẫn cao. Có 4 bài có số lượt trích dẫn lớn hơn 50, trong đó có hai tác giả đến từ Việt Nam của tác giả Nguyen Thi Tuyet Mai (được trích dẫn 54 lần) và Thi Truc Huong Nguyen (được trihs dẫn 78 lần). Bài Does it pay to be green? An exploratory analysis of wage differentials between green and non-green industries của hai tác giả đến từ University of the West Indies Cave Hill Campus, Bridgetown, Barbados có số lượt được trích dẫn cao nhất là 80.
papersAbstracts %>%
filter(is.referenced.by.count >= 50) %>%
rename(is.ref = is.referenced.by.count) %>%
select(title, is.ref) %>%
kbl(caption = "Table 2: The four most frequently cited papers", escape = TRUE) %>%
kable_classic(full_width = FALSE, html_font = "Cambria")| title | is.ref |
|---|---|
| Does it pay to be green? An exploratory analysis of wage differentials between green and non-green industries | 80 |
| An investigation into the relationship between materialism and green purchase behavior in Vietnam and Taiwan | 54 |
| Threshold effects of public debt on economic growth in Africa: a new evidence | 59 |
| Measuring financial inclusion: a composite FI index for the developing countries | 78 |
| Financial development and institutional quality among emerging economies | 69 |
Chúng ta có thể phân loại 293 papers được đăng thành 6 nhóm chủ đề con (Sub-topic) bằng Latent Dirichlet Allocation căn cứ vào title của bài viết. Table 3 dưới đây cho thấy số lượng các bài viết thuộc về các chủ đề con cũng như các từ khóa nổi bật nhất.
#-----------------------------------
# Topic Modelling based on title
#-----------------------------------
papersAbstracts %>%
mutate(abstract = str_to_lower(abstract)) %>%
mutate(title = str_to_lower(title)) %>%
select(title, abstract, doi, id) -> dfTitles
tidy_titles <- dfTitles %>%
unnest_tokens(word, title) %>%
anti_join(get_stopwords())
# Create a document-term matrix:
dtmTitles <- tidy_titles %>%
count(id, word) %>%
cast_dtm(document = id, term = word, value = n)
# Fit LDA with 6 topics:
n_topics <- 6
set.seed(29)
lda <- LDA(dtmTitles,
k = n_topics,
method = "Gibbs",
control = list(burnin = 1000, iter = 2000, seed = 29))
# Extract the per-document topic probabilities:
doc_topics <- tidy(lda, matrix = "gamma")
# For each document, choose the topic with highest probability:
assigned_topics <- doc_topics %>%
group_by(document) %>%
slice(which.max(gamma)) %>%
ungroup() %>%
mutate(subTopic = paste0("Topic ", topic)) %>%
select(document, subTopic)
# Inspect top terms per topic (top 5):
terms(lda, 9) %>%
t() %>%
as.data.frame() %>%
mutate(topWords = paste(V1, V2, V3, V4, V5, V6, V7, V8, V9, sep = ", ")) %>%
mutate(subTopic = row.names(.)) -> dfKeyWords
assigned_topics %>%
full_join(dfKeyWords %>% select(subTopic, topWords)) %>%
left_join(papersAbstracts %>% mutate(id = as.character(id)), by = c("document" = "id")) -> paperByTitle
paperByTitle %>%
group_by(subTopic, topWords) %>%
count() %>%
kbl(caption = "Table 3: Sub-topic by LDA", escape = TRUE) %>%
kable_classic(full_width = FALSE, html_font = "Cambria")| subTopic | topWords | n |
|---|---|---|
| Topic 1 | impact, vietnam, study, performance, analysis, role, listed, institutions, enterprises | 68 |
| Topic 2 | vietnamese, firm, stock, bank, banks, inequality, investigation, capital, risk | 62 |
| Topic 3 | market, trade, policy, evidence, analysis, impacts, productivity, corporate, fdi | 47 |
| Topic 4 | growth, empirical, vietnam, households, economic, emerging, evidence, social, direct | 44 |
| Topic 5 | vietnam, financial, economic, africa, firms, green, small, asia, governance | 24 |
| Topic 6 | evidence, case, development, determinants, investment, rural, quality, vietnam, credit | 48 |
Có vẻ như JED khá nổi tiếng với các tác giả ở châu Phi (vùng Hạ Sahara). Table 4 dưới đây chỉ ra danh sách 26 papers mà tác giả hoặc đến từ châu Phi hoặc vấn đề nghiên cứu ở châu Phi:
papersAbstracts %>%
filter(str_detect(title, "frica|aharan|igeria|imbabwe|hana")) %>%
select(title) %>%
mutate(ID =1:nrow(.)) %>%
kbl(caption = "Table 4: Papers from Africa", escape = TRUE) %>%
kable_classic(full_width = FALSE, html_font = "Cambria")| title | ID |
|---|---|
| Modelling the synergy between fiscal incentives and foreign direct investment in Ghana | 1 |
| Financial integration and macroeconomic volatility in Zimbabwe | 2 |
| Threshold effects of public debt on economic growth in Africa: a new evidence | 3 |
| The effects of financial inclusion on agricultural productivity in Nigeria | 4 |
| Export of Services and Economic Growth in Nigeria | 5 |
| Education and inclusive growth in West Africa | 6 |
| Institutional quality and economic growth in Sub-Saharan Africa: a panel data approach | 7 |
| Remittances and corruption in Nigeria | 8 |
| Multidimensional Poverty among Households in Southwest Nigeria | 9 |
| Monetary policies and bank lending in developing countries: evidence from Sub-Sahara Africa | 10 |
| Economic growth, international trade, and environmental degradation in Sub-Saharan Africa | 11 |
| Remittances, institutions and human development in Sub-Saharan Africa | 12 |
| The interplay between technological innovation and human capital development in driving industrial productivity and competitiveness in Africa | 13 |
| Population growth, income growth and savings in Ghana | 14 |
| Infrastructure development and industrial sector productivity in Sub-Saharan Africa | 15 |
| Comparative effect of short-term credit granted to agriculture on agricultural added value in the West African countries | 16 |
| Role of institutional quality in the public education financing–educational quality nexus: evidence from Sub-Saharan Africa | 17 |
| Farmers’ coping strategies to artisanal small-scale mining activities: welfare improvement or deterioration in Asutifi North District of Ghana? | 18 |
| Does regional trade promote economic growth? Evidence from Economic Community of West African States (ECOWAS) | 19 |
| Investors’ attention: does it impact the Nigerian stock market activities? | 20 |
| Economic growth effect of private capital inflows: a structural VAR approach for Nigeria | 21 |
| Spillover effects of the US monetary policy normalization on African stock markets | 22 |
| Effect of health outcome on economic growth in sub-Saharan Africa: a system generalized method of moment approach | 23 |
| The Knowledge Creation Organization: The Case of Alphana | 24 |
| Mineral rents, conflict, population and economic growth in selected economies: empirical focus on Sub-Saharan Africa | 25 |
| The effect of government expenditure and free maternal health care policy (FMHC) on household consumption in Ghana | 26 |
Là một tạp chí ở NEU nên không ngạc nhiên khi gần 50% các bài đăng (142 trong tổng số 293 bài) có từ “Vietnam” hoặc “Vietnamese”. Table 5 dưới đây list 10 bài ngẫu nhiên trong số 142 bài này:
papersAbstracts %>%
filter(str_detect(title, "Vietnam|Vietnamese")) %>%
select(title, author, doi) -> papersVietnam
papersVietnam %>%
sample_n(10) %>%
select(title) %>%
mutate(ID =1:nrow(.)) %>%
kbl(caption = "Table 5: Vietnam or Vietnamese", escape = TRUE) %>%
kable_classic(full_width = FALSE, html_font = "Cambria")| title | ID |
|---|---|
| Credit composition and income inequality in Vietnam: an empirical analysis | 1 |
| Strategic Knowledge Management, Innovation and Firm Performance: An Empirical Study in Vietnamese Firms | 2 |
| Using PLS-SEM to analyze challenges hindering success of green building projects in Vietnam | 3 |
| Regional Determinants of FDI Location in Vietnam | 4 |
| Residents’ preferred measures and willingness-to-pay for improving urban air quality: A case study of Hanoi city, Vietnam | 5 |
| Electricity Consumption and Economic Growth in Vietnam: A Cointegration and Causality Analysis | 6 |
| Productivity growth and job reallocation in the Vietnamese manufacturing sector | 7 |
| Patterns and Dynamics of Vietnam’s Revealed Comparative Advantage and Export Specialization | 8 |
| Qualification mismatch in the labor market and the impact on earnings: evidence from Vietnam | 9 |
| Does organizational innovation always lead to better performance? A study of firms in Vietnam | 10 |