https://github.com/perlatex/tidyESI
A package to tidy ESI data
https://github.com/perlatex/tidyESI
Last synced: 4 months ago
JSON representation
A package to tidy ESI data
- Host: GitHub
- URL: https://github.com/perlatex/tidyESI
- Owner: perlatex
- License: cc0-1.0
- Created: 2020-05-29T05:01:57.000Z (almost 5 years ago)
- Default Branch: master
- Last Pushed: 2022-11-18T10:24:34.000Z (over 2 years ago)
- Last Synced: 2024-08-13T07:14:58.947Z (8 months ago)
- Language: R
- Size: 10.8 MB
- Stars: 4
- Watchers: 2
- Forks: 2
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE.md
- Code of conduct: CODE_OF_CONDUCT.md
Awesome Lists containing this project
- jimsghstars - perlatex/tidyESI - A package to tidy ESI data (R)
README
# tidyESI
ESI [(Essential Science Indicators)](https://esi.clarivate.com/) is widely used in the evaluation of scientific research competitiveness. The goal of `tidyESI` is to make discipline statistics more easy and more tidyverse.
## Installation
You can install the development version of `tidyESI` with:
``` r
devtools::install_github("perlatex/tidyESI")
```
## How to use
There are [manuals](https://github.com/perlatex/tidyESI/tree/master/vignettes) and [documents](https://github.com/perlatex/use_tidyESI) here, but only Chinese at present.
## Example
This is a basic example which shows you how to solve a common problem:
``` r
library(tidyESI)
esi_discipline
```
### add_esi_threshold
``` r
library(tidyverse)
dt <- tibble(x = c("Agricultural Sciences", "Chemistry"))
dt
dt %>% add_esi_threshold(x)
dt %>% add_esi_threshold(x, date = "all")
dt %>% add_esi_threshold(x, date = "ALL")
dt %>% add_esi_threshold(x, date = c("20200326"))
dt %>% add_esi_threshold(x, date = c("20200326", "20200514"))
```
``` r
esi_discipline %>% add_esi_threshold(discipline, date = "last")
esi_discipline %>% add_esi_threshold(discipline, date = "all")
```
### add_high_cited
``` r
sicnu <- read_highcited(here::here("data", "highly20200514.xlsx"))
sicnu
```
``` r
df <- tibble(
u = "Sichuan Normal University",
d = c("Chemistry")
)
```
``` r
df %>%
add_high_cited(u, d, source = sicnu, scope = "all year")
```