getwd()
## [1] "C:/Users/VIP/Documents"
library("dplyr")
## Warning: package 'dplyr' was built under R version 4.4.3
##
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library("stringr")
## Warning: package 'stringr' was built under R version 4.4.3
df<-read.csv("Dimensions2025Julio.csv")
df2<- df %>% filter(str_detect(Authors.Affiliations,"Chiriqui"))
df2<- df2 %>% select(DOI,PubYear,Authors.Affiliations,Title,TimesCited)
dois<-c()
years<-c()
autors<-c()
citas<-c()
for (i in 1:nrow(df)) {
row <- df2[i, ] # Extract the i-th row as a data frame
cad<-row$Authors.Affiliations
cad2<-str_split(cad,";(?=\\s*[^()]*\\()")
n<-length(cad2[[1]])
doi<-row$DOI
year<-row$PubYear
cita<-row$TimesCited
for(k in 1:n){
author<-cad2[[1]][k]
if(grepl("Autonomous University of Chiriqui", author)){
cleaned <- sub("\\(.*", "", author)
cleaned <- trimws(cleaned)
cleaned <- gsub("\\.", "", cleaned)
if(cleaned != "Autonomous University of Chiriqui"){
dois<-c(dois,doi)
years<-c(years,year)
autors<-c(autors,cleaned)
citas<-c(citas,cita)
#print(paste0(doi,cleaned))
}
}
}
}
autores<-data.frame(autores=autors,doi=dois,year=years,citations=citas)
df4<- autores %>% arrange(year)
print(df4)
## autores doi
## 1 Méndez, Maria I 10.3201/eid3012.241089
## 2 Colanzi, Rony 10.3201/eid3012.241089
## 3 Suárez, Jose A 10.3201/eid3012.241089
## 4 Penagos, Homero 10.3201/eid3012.241089
## 5 Hernandez, Carolina 10.3201/eid3012.241089
## 6 Garcia-Redondo, Ruth 10.3201/eid3012.241089
## 7 Ramirez, Juan D 10.3201/eid3012.241089
## 8 Paniz-Mondolfi, Alberto 10.3201/eid3012.241089
## 9 Harris, Steven C 10.3897/zookeys.1188.111346
## 10 Armitage, Brian J 10.3897/zookeys.1188.111346
## 11 González, Tomás A Ríos 10.3897/zookeys.1188.111346
## 12 Giłka, Wojciech 10.11646/zootaxa.5428.4.7
## 13 Andersen, Trond 10.11646/zootaxa.5428.4.7
## 14 Armitage, Brian J 10.11646/zootaxa.5428.4.7
## 15 Hofmann, Tina A 10.3897/mycokeys.103.115799
## 16 Valdés, Roderick 10.1016/j.heliyon.2024.e39986
## 17 Serracín, Zuleika 10.1093/g3journal/jkae211
## 18 Quiroz, Michelle 10.3897/zookeys.1212.126733
## 19 Chacón, Alexis 10.1088/1361-6633/ad889f
## 20 Ríos-Rivera, Mirla M 10.1016/j.nicl.2024.103615
## 21 Caballero, Rosa Elena 10.35762/aer.2024001
## 22 Jiménez, Víctor 10.35762/aer.2024001
## 23 Miranda, Mónica 10.35762/aer.2024001
## 24 Rovira, Dalys 10.35762/aer.2024001
## 25 Branda, Guillermo 10.35762/aer.2024001
## 26 Ortiz, Johana Gabriela Arauz 10.1109/iestec62784.2024.10820260
## 27 P, Manuel T Dixon 10.1109/iestec62784.2024.10820260
## 28 Valdés-Rodríguez, Benedicto 10.3390/geosciences14080221
## 29 Rovira, Dalys 10.3390/geosciences14080221
## 30 Gutiérrez-De Gracia, Nivia Esther 10.1007/978-3-031-62110-9_7
## 31 Hofmann, Tina Antje 10.5377/ceiba.v57i1.18140
## 32 Chacón, Alexis 10.35848/1347-4065/ad68f1
## 33 Monrroy, Mariel 10.1155/2024/5047702
## 34 Solis, Huris 10.1155/2024/5047702
## 35 Quiel, Deilyn 10.1155/2024/5047702
## 36 Araúz, Onix 10.1155/2024/5047702
## 37 García, José Renán 10.1155/2024/5047702
## 38 Rodríguez-Quiel, E 10.1080/03736687.2025.2454811
## 39 Batista, Abel 10.3897/evolsyst.8.114527
## 40 del Carmen González-Rivera, Katherine 10.5377/arquitectura.v9i17.17894
## 41 Almario-Castillo, José Agustín 10.5377/arquitectura.v9i17.17894
## 42 Patiño, Erick Omar Miranda 10.18554/rt.v16i3.6745
## 43 Haelewaters, Danny 10.1007/s13225-024-00535-w
## 44 Vega, Aracelly 10.1021/acsomega.4c10914
## 45 Reyes, Stephany M 10.1021/acsomega.4c10914
## 46 Armitage, Brian J 10.11646/zootaxa.5613.2.1
## 47 Sánchez, Kayla N Castillo 10.11646/zootaxa.5613.2.1
## 48 González, Tomás A Ríos 10.11646/zootaxa.5613.2.1
## 49 E, Yusseff P Aguirre 10.11646/zootaxa.5613.2.1
## 50 Monrroy, Mariel 10.3390/molecules30081773
## 51 García, José Renán 10.3390/molecules30081773
## 52 Bogarín, Diego 10.3897/phytokeys.256.140316
## 53 Vissuetti, Ana 10.15517/rev.biol.trop..v73i1.55305
## 54 Villarreal, Rosa 10.15517/rev.biol.trop..v73i1.55305
## 55 Rodríguez-Quiel, Eyvar 10.15517/rev.biol.trop..v73i1.55305
## 56 Hofmann, Tina Antje 10.15517/rev.biol.trop..v73i1.55305
## 57 Armitage, Brian J 10.3897/neotropical.20.e148738
## 58 Harris, Steven C 10.3897/neotropical.20.e148738
## 59 Rodriguez, Viterbo 10.3897/neotropical.20.e148738
## 60 Guevara, Karel 10.37811/cl_rcm.v8i6.15641
## 61 Hofmann, TA 10.3114/persoonia.2025.54.08
## 62 Bogarín, Diego 10.1007/s12225-024-10249-6
## 63 Otero, Victoriano Rodríguez 10.18050/rev.espergesia.v12i1.3431
## year citations
## 1 2024 0
## 2 2024 0
## 3 2024 0
## 4 2024 0
## 5 2024 0
## 6 2024 0
## 7 2024 0
## 8 2024 0
## 9 2024 2
## 10 2024 2
## 11 2024 2
## 12 2024 2
## 13 2024 2
## 14 2024 2
## 15 2024 1
## 16 2024 1
## 17 2024 0
## 18 2024 1
## 19 2024 0
## 20 2024 4
## 21 2024 1
## 22 2024 1
## 23 2024 1
## 24 2024 1
## 25 2024 1
## 26 2024 0
## 27 2024 0
## 28 2024 0
## 29 2024 0
## 30 2024 1
## 31 2024 0
## 32 2024 1
## 33 2024 1
## 34 2024 1
## 35 2024 1
## 36 2024 1
## 37 2024 1
## 38 2024 1
## 39 2024 6
## 40 2024 0
## 41 2024 0
## 42 2024 0
## 43 2024 33
## 44 2025 0
## 45 2025 0
## 46 2025 0
## 47 2025 0
## 48 2025 0
## 49 2025 0
## 50 2025 0
## 51 2025 0
## 52 2025 0
## 53 2025 0
## 54 2025 0
## 55 2025 0
## 56 2025 0
## 57 2025 0
## 58 2025 0
## 59 2025 0
## 60 2025 0
## 61 2025 0
## 62 2025 0
## 63 2025 0
Publicaciones totales 2024-2025
df2 %>% group_by(PubYear) %>% summarize(n=n())
## # A tibble: 2 × 2
## PubYear n
## <int> <int>
## 1 2024 21
## 2 2025 10
Citas totales por año: 2024-2025
df2 %>% group_by(PubYear) %>% summarize(n=sum(TimesCited))
## # A tibble: 2 × 2
## PubYear n
## <int> <int>
## 1 2024 55
## 2 2025 0
Citas por autor
df5<-df4 %>% group_by(autores) %>% summarize(n=sum(citations)) %>% arrange(desc(n))
print(df5,n = Inf)
## # A tibble: 52 × 2
## autores n
## <chr> <int>
## 1 Haelewaters, Danny 33
## 2 Batista, Abel 6
## 3 Armitage, Brian J 4
## 4 Ríos-Rivera, Mirla M 4
## 5 Andersen, Trond 2
## 6 Giłka, Wojciech 2
## 7 González, Tomás A Ríos 2
## 8 Harris, Steven C 2
## 9 Araúz, Onix 1
## 10 Branda, Guillermo 1
## 11 Caballero, Rosa Elena 1
## 12 Chacón, Alexis 1
## 13 García, José Renán 1
## 14 Gutiérrez-De Gracia, Nivia Esther 1
## 15 Hofmann, Tina A 1
## 16 Jiménez, Víctor 1
## 17 Miranda, Mónica 1
## 18 Monrroy, Mariel 1
## 19 Quiel, Deilyn 1
## 20 Quiroz, Michelle 1
## 21 Rodríguez-Quiel, E 1
## 22 Rovira, Dalys 1
## 23 Solis, Huris 1
## 24 Valdés, Roderick 1
## 25 Almario-Castillo, José Agustín 0
## 26 Bogarín, Diego 0
## 27 Colanzi, Rony 0
## 28 E, Yusseff P Aguirre 0
## 29 Garcia-Redondo, Ruth 0
## 30 Guevara, Karel 0
## 31 Hernandez, Carolina 0
## 32 Hofmann, TA 0
## 33 Hofmann, Tina Antje 0
## 34 Méndez, Maria I 0
## 35 Ortiz, Johana Gabriela Arauz 0
## 36 Otero, Victoriano Rodríguez 0
## 37 P, Manuel T Dixon 0
## 38 Paniz-Mondolfi, Alberto 0
## 39 Patiño, Erick Omar Miranda 0
## 40 Penagos, Homero 0
## 41 Ramirez, Juan D 0
## 42 Reyes, Stephany M 0
## 43 Rodriguez, Viterbo 0
## 44 Rodríguez-Quiel, Eyvar 0
## 45 Serracín, Zuleika 0
## 46 Suárez, Jose A 0
## 47 Sánchez, Kayla N Castillo 0
## 48 Valdés-Rodríguez, Benedicto 0
## 49 Vega, Aracelly 0
## 50 Villarreal, Rosa 0
## 51 Vissuetti, Ana 0
## 52 del Carmen González-Rivera, Katherine 0