Closed davidperezmartorell closed 8 months ago
sigo investigando...veo que si comparo "a mano" los datos de assembleages y citation, si hay un DOI para cada id_sdudy....
vale, ya encontré el error. PArece que comparaba en assembleages el valor citation_ori y en citation_data el valor que contiene la info es citation Modifico el nombre de columna de citation_data y comparo. Me salen estos valores en el merge assemblages_merged2 %>% filter(DOI == "") %>% select(citation, DOI) %>% unique()
estos no tienen DOI. voy a buiscar que les ocurre
citation DOI
1 Eilu and Obua 2005
7 Leiva 2009
13 Lopez-Jimenez 2019
20 Upadhaya et al. 2015
29 Williams 2000
no entiendo, los datos estan en ambos lados
todos los DOIS corregidos. Ademas que he agregado al info de todo, aparece directamente el enlace. Este issue creo que lo creé porque en algunos casos no aparecía el dato y era porque mezclaba variables citation con citation_ori
Tengo mas info en citation que la que mostramos. LA cogí por si acaso en una búisqueda manual, pero solo necsitamos el DOI. Tengo autores, año, enlaces paralelos, librerias..etc.... todo lo que teniamos en nuestras citas
cuando voy a representar los datos, me faltan dois cuando estuve mirando de la union de varios detos de excels, pdf's, words, me salian 58 estudios, pero ahora que voy a trabajar la union de assembleages con citation para agregarles el DOI, me salen muchos vacios. Los voy a agregar en la tabla citation. son estos (agrego el código que voy usando en archivo pruebas.R
Load data
citation_data <- read.csv("inst/citation_data.csv", stringsAsFactors = FALSE, sep = ";", header = TRUE, fileEncoding = "latin1", dec = ",") assembleages <- read.csv("inst/comm_nodist_plants.csv", sep = ";", header = TRUE, fileEncoding = "latin1", dec = ",")
Assuming 'assemblages' is an sf object
assemblages_ori <- st_drop_geometry(assembleages)
Merge citation data with assemblages based on the citation column
assemblages_merged <- merge(assemblages_ori, citation_data, by = "citation", all.x = TRUE) assemblages_merged2 <- assemblages_merged %>% select (id_study,Title, DOI) %>% filter(is.na(DOI)) %>% unique()
Aqui esta el resultado. lo agrego en imagen que se ve mejor