Question

有疑问

什么有效：

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")

R包＆＃34;学者＆＃34; /获取文章的引文历史

1 个答案: