查找杂志的影响因子-R实现批量化

查找杂志的影响因子，手动显然不是好的选择。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)

如果想批量，把杂志列表制成csv，读取后。赋值给一个新向量xxm。直接用get_impactfactor(xxm)即可。
参考Y叔教程
放上代码：

#从本地读取要查询的列表
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