MGP's questions

Quero poder filtrar um dado data.frame por uma lista dinâmica.

Digamos que eu tenha uma lista de filtros como esta

filter_list = list(filter_1 = list(vs = c(0), carb = c(1,4)),
                   filter_2 = list(cyl = c(4,6)))

Existe uma maneira de filtrar um data.framelike mtcarsde forma que fique equivalente também

library(dplyr)

mtcars %>%
  filter(vs %in% c(0) & carb %in% c(1,4) |
           cyl %in% c(4,6))

usando o formulário filter_list acima? Então, cada elemento do filter_listé avaliado como ore cada item do elemento da lista de filtros é avaliado como um and.

Tentei usar um loop, mas não está funcionando como esperado:

df = mtcars
for(f in filter_list){
  vars = names(f)
  i = 1
  for(n in f){
    df = filter(df, !!vars[[i]] %in% n)
    i = i +1
  }
}

Isso retorna apenas um data.frame. A orcondição também é violada com a loopabordagem -.

Digamos que eu tenha duas matrizes A e B dadas por

set.seed(123)
m1 = matrix(runif(10*5), nrow = 10, ncol = 5)
m2 = matrix(runif(10*5), nrow = 10, ncol = 5)

Quero encontrar para cada linha da matriz A a linha da matriz B que está mais próxima da linha da matriz A. Sei que posso fazer isso percorrendo cada linha de A e comparando-a com cada linha de B assim:

for(i in 1:nrow(m1)){
  dist = 9999
  index = -1
  for(j in 1:nrow(m2)){
    test = sqrt(sum(abs(m1[i,]-m2[j,])))
    
    if (test < dist) {
      dist = test
      index = j
    }
  }
  print(index)
}

No entanto, tenho um milhão de linhas e isso leva uma eternidade. Estou lutando para encontrar uma maneira eficiente. Alguma ideia?