if_publications 查询

library(scholar)
library(yyplot)

jn <- c("oncogene",
       "cancer research",
       "cancer letter",
       "elife",
       "cancer discovery",
       "Proceedings of the National Academy of Sciences of the United States of America",
       "cancer letters",
       "journal of biological chemistry",
       "molecular cancer",
       "cancer prevention research",
       "journal of investigative dermatology",
       "journal of pineal research",
       "Redox Biology")
get_impactfactor(jn)
# A tibble: 13 x 4
   Journal                                                                        Cites ImpactFactor Eigenfactor
   <chr>                                                                          <dbl>        <dbl>       <dbl>
 1 ONCOGENE                                                                       66411         6.85      0.0760
 2 CANCER RESEARCH                                                               139291         9.13      0.130 
 3 CA-A CANCER JOURNAL FOR CLINICIANS                                             28839       245.        0.0660
 4 eLife                                                                          25592         7.62      0.196 
 5 Cancer Discovery                                                               11896        24.4       0.0654
 6 PROCEEDINGS OF THE NATIONAL ACADEMY OF SCIENCES OF THE UNITED STATES OF AMER~ 637268         9.50      1.11  
 7 CANCER LETTERS                                                                 29311         6.49      0.0423
 8 JOURNAL OF BIOLOGICAL CHEMISTRY                                               366247         4.01      0.321 
 9 Molecular Cancer                                                               10301         7.78      0.0173
10 Cancer Prevention Research                                                      5348         4.02      0.0119
11 JOURNAL OF INVESTIGATIVE DERMATOLOGY                                           28457         6.45      0.0388
12 JOURNAL OF PINEAL RESEARCH                                                      9079        11.6       0.0086
13 Redox Biology                                                                   4083         7.13      0.0121

# publication
# tiemout!!!
x <- get_publications("61MwfeMAAAAJ")
y <- x %>% select(year, author, journal, title)%>%
+ mutate(impactFactor = get_impactfactor(journal)$ImpactFactor)%>%
group_by(year)
y