ggtitle - Relacionar los datos y contar el mismo valor

ggtitle size

Question

Tengo dos conjuntos de datos (marcos de datos). Me gustaría encontrar valores de coincidencia entre estos conjuntos de datos en función de cada nombre de columna.

intput1 <- structure(list(A = c(1L, 0L, 1L, 0L), B = c(2L, 2L, 1L, 1L), 
C = c(3L, 1L, 1L, 3L)), .Names = c("A", "B", "C"), class = "data.frame", 
row.names = c("1", "2", "3", "4"))

#     A    B   C
#1    1    2   3
#2    0    2   1
#3    1    1   1
#4    0    1   3

input2 <- structure(list(A = c(1L, 3L, 1L, 0L), B = c(1L, 2L, 0L, 1L), 
C = c(2L, 2L, 1L, 2L)), .Names = c("A", "B", "C"), class = "data.frame", 
row.names = c("1", "2", "3", "4"))

#     A    B   C
#1    1    1   2
#2    3    2   2
#3    1    0   1
#4    0    1   2

Rendimiento esperado:

#     colnames.1   colnames.2   match
#1             A           A        3
#2             A           B        1
#3             A           C        1
#4             B           A        1
#5             B           B        2
#6             B           C        2
#7             C           A        1
#8             C           B        0
#9             C           C        1

donde la columna final es el número de coincidencias.

Answer 1

Aquí hay una posibilidad:

f <- function (x, y) sum(x == y)

oo <- outer(input1, input2, Vectorize(f))

#  A B C
#A 3 1 1
#B 1 2 3
#C 1 0 1

as.data.frame.table(oo)

#  Var1 Var2 Freq
#1    A    A    3
#2    B    A    1
#3    C    A    1
#4    A    B    1
#5    B    B    2
#6    C    B    0
#7    A    C    1
#8    B    C    3
#9    C    C    1