선택 및 R

Question

의 목록에서 여러 벡터와 일치하는이 같은 벡터의 목록이 있습니다 (에

>list 

[[1]] 

[1] "a" "m" "l" "s" "t" "o" 

[[2]] 

[1] "m" "y" "o" "t" "e" 

[[3]] 

[1] "n" "a" "s" 

[[4]] 

[1] "b" "u" "z" "u" "l" "a" 

[[5]] 

[1] "c" "m" "u" "s" "r" "i" "x" "t" 

1 - 첫째, 나는 요소의 가장 많은 표에서 벡터를 선택합니다을 이 경우 8 요소가있는 5 번째 벡터). 이것은 쉽다.

2 초 목록에서 이전 벡터와 길이가 같거나 다른 벡터를 모두 선택하고 이전 벡터와 교차시킵니다.

내가 가질 수있는 또 다른 가능성은 첫 번째 문자의 이름으로 선택하는 것입니다. 이 경우 목록에서 첫 번째와 네 번째 인 "a"또는 "b"로 시작하는 벡터를 선택하는 것과 동일합니다. 이 경우 내가 모르는 것은 목록에서 첫 번째 요소를 아는 여러 벡터를 선택하는 방법입니다.

3 - 마침내 최소한의 일치 횟수 만 남기고 싶습니다.

"b"로 시작하는 목록의 네 벡터. 그런 다음 나머지 벡터에 대해 프로세스를 다시 시작하지만 "교차"할 때 이미 4 번째 및 5 번째 벡터를 고려하십시오. 이 경우 두 번째 요소를 선택하고이 요소를 4 번째 및 5 번째의 "고유() 조합"과 교차시킵니다.

나는 내가 자신을 설명 했길 바래!. 3-4 "for"및 "if"루프없이 R에서이를 수행 할 수있는 방법이 있습니까? 다른 말로하면 lapply 또는 유사하게 그것을 사용하는 영리한 방법이 있습니까?

Answer 1

이 작업을 수행해야합니까?

list <- strsplit(list("amlsto", "myote","nas","buzula","cmsusrixt"), "") 
# find minimum length 
lens <- sapply(list, length) 
which.min(lens) 
# which are same or 1 shorter than previous 
inds <- which (lens==c(-1,head(lens, -1)) | lens==c(-1,head(lens,-1))-1) 
# get the intersections 
inters <- mapply(intersect, list[inds], list[inds-1], SIMPLIFY=FALSE) 
#Get items where first in vector is in target set 
target <- c("a","b") 
isTarget <- sapply(list, "[[",1) %in% target 

# Minimum number of overlaps 
which.min(lapply(inters, length))