Description Usage Arguments Author(s) Examples
View source: R/Anno_get.ISSN.R
get.ISSN is after get.journal.ISSN and produce unique ISSN code via intelligent algorithm.
1 2 |
data |
a data containing journal,ISSN.code and search.names,which is always produce by luckey::get.journal.ISSN |
journal.name.col |
the colname of journals |
ISSN.col |
the colname of ISSN codes |
search.col |
the colname of search names |
Weibin Huang<654751191@qq.com>
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | ## get unique ISSN
library(lucky)
df1 <- get.ISSN(ISSN.3.Inf)
df2 <- get.ISSN2(df1)
## get IF information
data("IF")
colnames(df2)[1] <- "Full Journal Title"
library(dplyr)
ISSN_3.Inf <- left_join(df2,IF,by = "Full Journal Title")
table(is.na(ISSN_3.Inf$`Journal Impact Factor`))
## get new IF plus ISSN
colnames(ISSN_3.Inf) <- c("Journals","Search names","ISSN","Total #'Cites","IF","Eigenfactor Score")
ISSN_3.Inf <- subset(ISSN_3.Inf,select = c("Journals","ISSN","IF","Search names","Total Cites","Eigenfactor Score"))
IF_3.Inf <- ISSN_3.Inf
save(IF_3.Inf,file = "IF_3.Inf.rda")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.