여러 값에 대해 행렬을 검색하고 행 이름을 반환하는 방법은 무엇입니까?

Question

두 개의 행렬이 있습니다. 하나는 index 행렬 (ncol = 1, nrow = 20,000)이고, 검색하고자하는 값을 저장하고, 다른 행렬은 data 행렬이며, 큰 데이터 세트 (ncol = 1, nrow = 5,000).

index 매트릭스 (water, meat, gas .... 열 이름이다)

water DFAFADFADF 
meat  QEREQRQTQTQ 
gas  FEQQFQEFQF 
. 
. 
. 
.. 

data 매트릭스 :

( Tom, Luis, Jerry, Vincent, Richard ... 행 이름이다)

Tom    dfqfqfAFADFADaveffefd 
Luis    eqeqfqefAFADFADuouojoimoij 
Jerry   dafadfe3321AFADFADfdeff 
Vincent   e31413413qeffffff 
Richard   121eefq3ffAFADFADfffqffqff 
. 
. 
. 
.. 

0131의 각 행 index 행렬에서 각 값을 찾고 싶습니다.행렬 그 문자열을 포함하고 data 행렬의 행 이름을 기록한 다음 index 행렬에있는 문자열 행의 다음 열 (또는 단일 열에 ","로 구분)에 넣습니다.

예를 들어, 루프를 가지고 인덱스 매트릭스에서 값 을 가져 와서 데이터 매트릭스에서이 문자열이 포함 된 행을 검색하면 톰, 루이스, 제리, 리처드가 data 매트릭스에 포함되어 있음을 발견했습니다. 문자열, 그래서 나는

index 행렬 위해 index 매트릭스를 업데이트

water DFAFADFADF Tom, Luis, Jerry, Richard 
meat  QEREQRQTQTQ 
gas  FEQQFQEFQF 
. 
. 
. 
.. 

그리고 나는 다시 data 매트릭스를 검색 할 수 index 매트릭스, QEREQRQTQTQ에 다음 값을 index 행렬의 마지막 행을 완료 할 때까지 index 행렬을 다시 업데이트하십시오.

루프를 사용할 수 있습니까? 우리는 루프가 필요할 수도 있다고 생각하지만 for (....)을 사용합니다. 당신은 당신이 다운 스트림 정보를 처리하는 방법에 따라 거기에 unlist()를 호출해야 할 수도 있으므로

Answer 1

index <- data.frame(one = c("ABC", "DEF", "GHI", "JKL")) 
rownames(index) <- c("water", "meat", "fruit", "bread") 
data <- data.frame(one = c("ABCDEF", "DEFZMN", "MNOABC", "ZXCJKL")) 
rownames(data) <- c("Tom", "Jerry", "Rob", "Nate") 

results <- data.frame() 
for (r in 1:nrow(index)) { 
    index$results[r] <- list(rownames(data)[grep(index$one[r], data$one, ignore.case = T)]) 
    count <- length(unlist(index$results[r])) 
    df <- data.frame(data_match = unlist(index$results[r]), 
        pattern = rep(index$one[r], times = count), 
        index_match = rep(rownames(index)[r], times = count)) 
    results <- rbind(results, df) 
} 
reshape2::dcast(results, index_match ~ data_match) 

이, 열 인덱스 $ 결과에서 list()를 생성합니다. 또한 R에 당신은 벡터라는 이름의 한 수 있으며, 경우에 당신은 아마 당신은 그냥 같이 명명 된 문자 벡터를해야 할 수도 있습니다 하나 개의 컬럼 데이터 프레임을했다 :

index <- c("ABC", "DEF", "GHI", "JKL") 
names(index) <- c("water", "meat", "fruit", "bread") 

다음 시간 동안 일치 간단하게 만들 수 있습니다.

Answer 2

짧은 솔루션 :

이

row.names(data)[apply(data, 1, function(x) { 
    sapply(x, function(y) y %in% c("DFAFADFADF", "QEREQRQTQTQ", "FEQQFQEFQF")) 
}), ]