Complemento la respuesta de @ichisa con un caso diferente, el de encontrar un número o vector arbitrario dentro de una matriz.
Puede ser que lo que te interese sea encontrar submatrices por alguna característica propia de esa submatriz (múltiplos de 7, de 8, etc.) y en ese caso la respuesta anterior sería apropiada. Si estás buscando encontrar números o filas/columnas arbitrarias aquí van algunas opciones.
La matriz de test es diferente para enfatizar el caso de submatrices arbitrarias. Son números aleatorios entre 1 y 100. No hay un patrón matemático a priori, más que el azar.
set.seed(2019)
matriz <- matrix(sample(1:100, 100, replace = TRUE), ncol = 10, byrow = T)
Encontrar solo número
which(matriz == 25, arr.ind = TRUE)
Encontrar una fila completa
En este caso del 1 al 10
which(apply(matriz, 1, function(x) identical(x, c(25, 42, 69, 17, 61, 76, 19, 26, 9, 90))), matriz)
Para encontrar una columna completa simplemente se cambia a 2 el argumento de apply()
Los casos para submatrices arbitrarias que no son de 1 x 1, 1 x n o 1 x p son mucho más complicados porque son un problema de topología: te interesan valores vinculados entre sí por una propiedad relacional: la adyacencia. Es decir, no hay nada intrínseco que relacione a esos números, más allá de estar uno al lado de otro.
En este hilo se trata indirectamente el problema de encontrar submatrices adyacentes. Quizás pueda servir para pensar una solución. Si generas una lista con todas las submatrices del mismo tamaño que la que buscas podrías comparar esa lista con tu submatriz. Con eso al menos podrías saber si la submatriz pertenece a la matriz más grande. Encontrar la posición sería un complicación adicional. Yo no sabría como implementarlo.
También podría servirte investigar librerías de análisis de redes (tipo igraph::
), que tienen funciones para identificar adyacencias. Aunque uno relaciona al análisis de redes con los gráficos de nodos/enlaces la matemática subyacente se basa en matrices de adyacencia.
which(matriz == 25, arr.ind = TRUE)
. Los otros son más complicados (creo), sobre todo el rectángulo rosa.