2.3 Ejemplo WoS data

Ejemplo wosdata.R en wosdata.zip. Ver Apéndice B.

# library(dplyr)
# library(stringr)
# https://rubenfcasal.github.io/scimetr/articles/scimetr.html
# library(scimetr)

db <- readRDS("data/wosdata/db_udc_2015.rds")
str(db, 1)
## List of 11
##  $ Docs      :'data.frame':  856 obs. of  26 variables:
##  $ Authors   :'data.frame':  4051 obs. of  4 variables:
##  $ AutDoc    :'data.frame':  5511 obs. of  2 variables:
##  $ Categories:'data.frame':  189 obs. of  2 variables:
##  $ CatDoc    :'data.frame':  1495 obs. of  2 variables:
##  $ Areas     :'data.frame':  121 obs. of  2 variables:
##  $ AreaDoc   :'data.frame':  1364 obs. of  2 variables:
##  $ Addresses :'data.frame':  3655 obs. of  5 variables:
##  $ AddAutDoc :'data.frame':  7751 obs. of  3 variables:
##  $ Journals  :'data.frame':  520 obs. of  12 variables:
##  $ label     : chr ""
##  - attr(*, "variable.labels")= Named chr [1:62] "Publication type" "Author" "Book authors" "Editor" ...
##   ..- attr(*, "names")= chr [1:62] "PT" "AU" "BA" "BE" ...
##  - attr(*, "class")= chr "wos.db"
variable.labels <- attr(db, "variable.labels")
knitr::kable(as.data.frame(variable.labels)) # caption = "Variable labels"
variable.labels
PT Publication type
AU Author
BA Book authors
BE Editor
GP Group author
AF Author full
BF Book authors fullname
CA Corporate author
TI Title
SO Publication name
SE Series title
BS Book series
LA Language
DT Document type
CT Conference title
CY Conference year
CL Conference place
SP Conference sponsors
HO Conference host
DE Keywords
ID Keywords Plus
AB Abstract
C1 Addresses
RP Reprint author
EM Author email
RI Researcher id numbers
OI Orcid numbers
FU Funding agency and grant number
FX Funding text
CR Cited references
NR Number of cited references
TC Times cited
Z9 Total times cited count
U1 Usage Count (Last 180 Days)
U2 Usage Count (Since 2013)
PU Publisher
PI Publisher city
PA Publisher address
SN ISSN
EI eISSN
BN ISBN
J9 Journal.ISI
JI Journal.ISO
PD Publication date
PY Year published
VL Volume
IS Issue
PN Part number
SU Supplement
SI Special issue
MA Meeting abstract
BP Beginning page
EP Ending page
AR Article number
DI DOI
D2 Book DOI
PG Page count
WC WOS category
SC Research areas
GA Document delivery number
UT Access number
PM Pub Med ID

Documentos correspondientes a revistas:

# View(db$Journals)
iidj <- with(db$Journals, idj[grepl('Chem', JI)])
db$Journals$JI[iidj]
##  [1] "J. Am. Chem. Soc."                  "Inorg. Chem."                      
##  [3] "J. Chem. Phys."                     "J. Chem. Thermodyn."               
##  [5] "J. Solid State Chem."               "Chemosphere"                       
##  [7] "Antimicrob. Agents Chemother."      "Trac-Trends Anal. Chem."           
##  [9] "Eur. J. Med. Chem."                 "J. Chem. Technol. Biotechnol."     
## [11] "J. Antimicrob. Chemother."          "Food Chem."                        
## [13] "Cancer Chemother. Pharmacol."       "Int. J. Chem. Kinet."              
## [15] "Chem.-Eur. J."                      "J. Phys. Chem. A"                  
## [17] "New J. Chem."                       "Chem. Commun."                     
## [19] "Chem. Eng. J."                      "Comb. Chem. High Throughput Screen"
## [21] "Mini-Rev. Med. Chem."               "Phys. Chem. Chem. Phys."           
## [23] "Org. Biomol. Chem."                 "J. Chem Inf. Model."               
## [25] "ACS Chem. Biol."                    "Environ. Chem. Lett."              
## [27] "Anal. Bioanal. Chem."               "J. Cheminformatics"                
## [29] "J. Mat. Chem. B"
idd <- with(db$Docs, idj %in% iidj)
which(idd)
##  [1]   2   4  16  23  43  69 119 126 138 175 188 190 203 208 226 240 272 337 338
## [20] 341 342 357 382 385 386 387 388 394 411 412 428 460 483 518 525 584 600 604
## [39] 605 616 620 665 697 751 753 775 784 796 806 808 847 848
# View(db$Docs[idd, ])
head(db$Docs[idd, 1:3])
##    idd idj
## 2    2  37
## 4    4 272
## 16  16 195
## 23  23 436
## 43  43 455
## 69  69  37
##                                                                                                                                                                                                                                 TI
## 2                                                                                      Role of Temperature and Pressure on the Multisensitive Multiferroic Dicyanamide Framework [TPrA][Mn(dca)(3)] with Perovskite-like Structure
## 4                                                                                                                    Exceptionally Inert Lanthanide(III) PARACEST MRI Contrast Agents Based on an 18-Membered Macrocyclic Platform
## 16 Reduced susceptibility to biocides in Acinetobacter baumannii: association with resistance to antimicrobials, epidemiological behaviour, biological cost and effect on the expression of genes encoding porins and efflux pumps
## 23                                                       Two Catechol Siderophores, Acinetobactin and Amonabactin, Are Simultaneously Produced by Aeromonas salmonicida subsp salmonicida Sharing Part of the Biosynthetic Pathway
## 43                                                                                                                                                                        Conservation of stony materials in the built environment
## 69                                                                                                                                                         Gd3+-Based Magnetic Resonance Imaging Contrast Agent Responsive to Zn2+

Documentos correspondientes a autores:

# View(db$Authors)
iida <- with(db$Authors, ida[grepl('Abad', AF)])
db$Authors$AF[iida]
## [1] "Mato Abad, Virginia" "Abad, Maria-Jose"    "Abad Vicente, J."   
## [4] "Abada, Sabah"
idd <- with(db$AutDoc, idd[ida %in% iida])
idd
## [1] 273 291 518 586
# View(db$Docs[idd, ])
head(db$Docs[idd, 1:3])
##     idd idj
## 273 273 282
## 291 291 141
## 518 518 272
## 586 586 311
##                                                                                                                                                                                      TI
## 273                                 Classification of mild cognitive impairment and Alzheimer's Disease with machine-learning techniques using H-1 Magnetic Resonance Spectroscopy data
## 291 Identifying a population of patients suitable for the implantation of a subcutaneous defibrillator (S-ICD) among patients implanted with a conventional transvenous device (TV-ICD)
## 518           Importance of Outer-Sphere and Aggregation Phenomena in the Relaxation Properties of Phosphonated Gadolinium Complexes with Potential Applications as MRI Contrast Agents
## 586                                                                      Enhanced thermal conductivity of rheologically percolated carbon nanofiber reinforced polypropylene composites