Animal nutrition journal report: The first half of 2018

A report is published for a personal interesting of the recent animal nutrition. The papers about “animal nutrition” which published at some SCI(E) journals were selected and analyzed. HTML scraping, data visualization, English-Korean translation, and report generation are automate process except sorting of the papers. Codes are available at

1. List of journals

journal_list <- readxl::read_excel("journal_result_2018_123456.xlsx")
table <- table(journal_list$journal) %>% data.frame()
colnames(table) <- c("Journal","Articles")
Journal Articles
animal 43
animal feed science and technology 98
journal of animal science 91
journal of dairy science 98
livestock science 28
poultry science 87
ggplot(table, aes(x=Journal, y=Articles, fill=Journal)) + geom_col() + theme(axis.text.x=element_text(angle=45, hjust=1)) + scale_fill_brewer(palette="Set3")

2. List of papers

2.1. Review

results <- readxl::read_excel("journal_result_2018_123456.xlsx")
results <- results[,c(7,9,8,5,4,1,2,3,6)]
filter(results, type=="review")

2.2. Monogastric

filter(results, type=="original article" & class=="monogastric")

2.3. Ruminant

filter(results, type=="original article" & class=="ruminant")