R包“学者”/获得一篇文章的引文史

Question

我对R包学者有个问题

什么工作：

get_citation_history(SSalzberg)

什么没有：

get_article_cite_history(SSalzberg, "any article")

码

article <- "Ultrafast and memory-efficient alignment of short DNA sequences to the human genome"
SSalzberg <- "sUVeH-4AAAAJ" (Google Scholar ID)
get_article_cite_history(SSalzberg, article)

错误消息：

Error in min(years):max(years) : result would be too long a vector
In addition: Warning messages:
1: In min(years) : no non-missing arguments to min; returning Inf
2: In max(years) : no non-missing arguments to max; returning -Inf

我不理解这个函数中的错误信息，我和另一个作者尝试了另一篇论文，但没有成功。我不知道我在这里错过了什么..。谢谢

Answer 1

您必须使用文章ID，而不是文章的标题。可能最简单的方法是检索完整的酒吧列表，其中有一个pubid列.

library(scholar)
SSalzberg <- "sUVeH-4AAAAJ"
all_pubs <- get_publications(SSalzberg)
## next step is cosmetic -- the equivalent of stringsAsFactors=FALSE
all_pubs <- as.data.frame(lapply(all_pubs,
         function(x) if (is.factor(x)) as.character(x) else x))
w <-grep("Ultrafast",all_pubs$title) ## publication number 3
all_pubs$title[w]
## [1] Ultrafast and memory-efficient alignment of ...
all_pubs$pubid[w] ## "Tyk-4Ss8FVUC"
ch <- get_article_cite_history(SSalzberg,all_pubs$pubid[w])
plot(cites~year,ch,type="b")