R包"scholar"/获取一篇文章的引用历史
R package "scholar" / getting the citation history of an article
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
我不理解该函数上下文中的错误消息,我尝试了另一位作者的另一篇论文但没有成功。我不知道我在这里错过了什么....谢谢
您必须使用文章 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 包有问题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
我不理解该函数上下文中的错误消息,我尝试了另一位作者的另一篇论文但没有成功。我不知道我在这里错过了什么....谢谢
您必须使用文章 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")