查找杂志的影响因子，手动显然不是好的选择。Y叔有写好的包，那就用吧。scholar
install.packages("scholar")
install.packages("dplyr")
library(scholar)
#scholar这个包实质是爬取了谷歌学术，整理对应的内容。简单粗暴好用。
#设定期刊的名称的向量
jn = c("bioinformatics","methods is ecology and evolution","molecular biosystems","molecular biology and evolution")
#获取对应期刊的影响因子
get_impactfactor(jn)
#获取cns的最新影响因子
cns=c("cell","nature","science")
get_impactfactor(cns)
#获取有bioinformatics相关的所有期刊
bioinfor <- agrep("bioinformatics",scholar:::impactfactor$Journal,ignore.case = T,value = T,max.distance = 0.05)
get_impactfactor(bioinfor)
#从本地读取要查询的列表
journal_name <- read.csv("H:/bozhong/journal.csv",header = TRUE)$journal
output <- get_impactfactor(journal_name)
write.csv(output,"journal_IF.csv")
journal.csv内容格式
image.png
输出文件journal_IF.csv格式
image.png