[R包 “秀才”/获取的文章

Question

我有一个问题，使用R包scholar

什么工作的引文历史：

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