https://mp.weixin.qq.com/s?__biz=MzIzNzI1ODUyMQ==&mid=2651241465&idx=1&sn=efe749d2b910e0b71a5a6a57ca1478a4&chksm=f339498fc44ec099c408217924cd79b8513d590b3dc849689b01b3c378c90af1f370a820d40a&scene=0#rd

install.packages("scholar")

library(scholar)

jn = c("bioinformatics", "methods in ecology and evolution", "molecular biosystems", "molecular biology and evolution")
get_impactfactor(jn)

jn <- agrep("bioinformatics", scholar:::impactfactor$Journal, ignore.case=T, value=T, max.distance=0.05)
get_impactfactor(jn)

require(scholar)
require(dpylr)

x = get_publications("DO5oG40AAAAJ")
y = x %>% select(year, author, journal, title) %>% mutate(impactFactor = get_impactfactor(journal)$ImpactFactor) %>% filter(grepl("^G Yu", author)) %>% group_by(year)
y


y %>% summarize(total_IF = sum(impactFactor, na.rm=T), mean_IF = mean(impactFactor, na.rm=T))