R (비슷한) 행 이름과 유사한 값을 필터링하는 방법은 무엇입니까

Question

R 환경에 다소 익숙합니다. "test"문자 집합이 있습니다. 샘플 데이터 (숫자)에서 해당 열의 모든 해당 값을 필터링하려면 열 이름을 일치 시켜서 수행 할 수 있습니다. AA의 값과 함께, 나는 또한 필터링 할 수
, 그것이 가능

> test <-c("aa", "bb", "zz") 

> head(sample.data) 

aa aa-001 aa-099 cc zz 

1 5  6  7 2 

> temp<-test%in% names(sample.data) 

이 나에게 내가 데이터

그러나

>temp 

TRUE FALSE FLASE FLASE TRUE 

> req.vec <- sample.data[temp] 


> req.vec 


aa zz 


1 2 

을 필요로하는데 사용할 수있는 논리적 인 벡터를 제공입니다 예를 들어, aa-001과 aa-099의 해당 값도 마찬가지입니까? 데이터가 AA에 대한 변화의 100 단위 근래 때문에 나는 그들이 COLNAMES 항상 지정된 형식의 경우, BB ZZ 등

Answer 1

, 당신은 당신이 또는

test <-c("aa", "bb", "zz") 
cn <- c("aa", "aa-001", "aa-099", "cc", "zz") 
sample.data <- c(1,5,6,7,2) 
names(sample.data) <- cn 
sample.data[substr(cn, 1, 2) %in% test] 
## aa aa-001 aa-099  zz 
##  1  5  6  2 

을 할 수 있었다 "AA"의 모든 변종 일치하지 않을 수 있습니다 grep 이상 test

Answer 2

이 예제에서는 test 벡터의 문자로 시작하는 열 이름을 일치 시키려면 grep을 사용합니다. 당신은 단지 마지막 4 개 문자가 변화하고 있음을 언급 때문에

test <- c("aa", "bb", "zz") 
sample.data <- data.frame(aa=1, "aa-001"=5, "aa-099"=6,cc=7,zz=2) 
cols <- apply(sapply(test, function(x) grepl(paste0("^",x),names(sample.data))),1,any) 
sample.data[, cols] 

은, 그것은 마지막 4 개 문자를 제거하는 것이 합리적

sample.data <- data.frame("aa-001"=1, "aa-005"=5, "bbb-001"=6, 
    "bbb-090"=7,"acdb-001"=2, "acdb-007"=1) 
test <- c("aa","acdb") 
nn <- names(sample.data) 
cols <- substr(nn,1,nchar(nn)-4) %in% test 
sample.data[,cols] 

아니면 끝나는 것을 제거 할 경우 "-" 일부 숫자는 사용할 수 있습니다 gsub

sample.data <- data.frame("aa-001"=1, "aa-005"=5, "bbb-001"=6, 
    "bbb-090"=7,"acdb-001"=2, "acdb-007"=1, check.names = FALSE) 
test <- c("aa","acdb") 
cols <- substr(nn,1,nchar(nn)-4) %in% test 
sample.data[,cols]