left - Inner Join con las condiciones en R

join multiple data frames in r

Question

Quiero hacer una combinación interna con la condición de que debería darme la resta de 2 columnas.

df1 = data.frame(Term = c("T1","T2","T3"), Sec = c("s1","s2","s3"), Value =c(10,30,30))
df2 = data.frame(Term = c("T1","T2","T3"), Sec = c("s1","s3","s2"), Value =c(40,20,10)
df1
Term Sec Value
T1 s1 10
T2 s2 30
T3 s3 30
df2
Term Sec Value
T1 s1 40
T2 s3 20
T3 s2 10

El resultado que quiero es

 Term Sec Value
T1 s1 30
T2 s2 20
T3 s3 10

Básicamente me estoy uniendo a dos tablas y por el valor de columna que estoy tomando

Value= abs(df1$Value - df2$Value)

He luchado pero no he encontrado ninguna forma de hacer esta fusión condicional en la base R. Probablemente si no es posible con la base R, dplyr debería poder hacer eso con inner_join () pero no estoy muy consciente de gran parte de este paquete.

Por lo tanto, cualquier sugerencia con base R y / o dplyr será apreciada

EDICIÓN

He incluido mis datos originales según lo pedido. Mis datos estan aqui

https://jsfiddle.net/6z6smk80/1/

DF1 es la primera tabla y DF2 es el segundo. DF2 comienza en la fila 168.

Toda la lógica es lo mismo, quiero unir estas dos tablas cuya longitud es de 160 filas cada una. Deseo unirme por ID y tomar la diferencia del valor de la columna de ambas tablas. El conjunto de datos resultante debe tener el mismo número de filas, que es 160 con diferencia de columna adicional

Answer 1

Aquí hay una solución "base R" que utiliza la función merge() en la columna Term compartida por sus marcos de datos df1 y df2 originales:

df_merged <- merge(df1, df2, by="Sec")
df_merged$Value <- abs(df_merged$Value.x - df_merged$Value.y)
df_merged <- df_merged[, c("Sec", "Term.x", "Value")]
names(df_merged)[2] <- "Term"
> df_merged
Sec Term Value
1 s1 T1 30
2 s2 T2 20
3 s3 T3 10

Answer 2

Como esta es una pregunta dplyr, aquí hay una solución dplyr:

Primero use inner_join y luego transmute para guardar variables y calcular y agregar una nueva.

inner_join(df1, df2, by = "Sec") %>%
transmute(Term = Term.x, Sec, Value = abs(Value.x - Value.y))

Answer 3

Usando data.table s binary join puede modificar columnas mientras se une. nomatch = 0L asegura que estás haciendo una unión interna

library(data.table)
setkey(setDT(df2), Sec)
setkey(setDT(df1), Sec)[df2, .(Term, Sec, Value = abs(Value - i.Value)), nomatch = 0L]
# Term Sec Value
# 1: T1 s1 30
# 2: T2 s2 20
# 3: T3 s3 10