텍스트를 R로 그룹화하는 방법은 무엇입니까?

Question

나는 단어의 벡터가

c('Apple','Orange','Apple','Carrot','Onion','Onion') 

나는

list('fruit' = c('Apple', 'Orange'), 
'vegetable' = c('Carrot','Onion') 

내가 찾고 있어요 출력에서 ​​그들을 분류

c('fruit', 'fruit', 'fruit', 'vegetable', 'vegetable', 'vegetable') . 

내 현재의 접근 방식은 각각의 변환이다 싶어 그들 data.table에 그리고 merge를 사용하여 종류를 얻으십시오. 다른 간단한 솔루션이 있습니까?

Answer 1

다음은 벡터 스틱 수있는 하나 개의 대안

x <- c('Apple','Orange','Apple','Carrot','Onion','Onion') 
lst <- list('fruit' = c('Apple', 'Orange'), 
'vegetable' = c('Carrot','Onion')) 
with(stack(lst), ind[match(x, values)]) 
# [1] fruit  fruit  fruit  vegetable vegetable vegetable