Foro de debate

CRUCE DE FICHEROS TXT EN LENGUAJE R

 
Imagen de Franz Jimeno
Re: CRUCE DE FICHEROS TXT EN LENGUAJE R
de Franz Jimeno - miércoles, 10 de mayo de 2017, 07:11
 

Hola,


yo haría algo así (utilizo el paquete dplyr):


library(dplyr)

#genero 2 tablas ejemplo

tabla1 <- data.frame(codigo=LETTERS, saldo=c(rep(1:5, each=5),1), stringsAsFactors = FALSE)

tabla2 <- data.frame(codigo=sample(LETTERS[1:15]), saldo=rep(1:5, each=3), stringsAsFactors = FALSE) %>% arrange(codigo)


#Fusiono ambas tablas por la variable codigo

tabla_union <- tabla1 %>% inner_join(tabla2, by="codigo") %>% mutate(diferencia=saldo.x-saldo.y)


#Filtro los resultados con diferencia 0, el valor es igual en ambas columnas

tabla_resultado_ok <- tabla_union %>% filter(diferencia==0)


#Filtro los resultados por valores diferentes de 0, el valor de ambas columnas es diferente a 0

tabla_reslutado_no_ok <- tabla_union %>% filter(diferencia!=0)



Espero que te pueda ser útil.


Un saludo,


Franz