テキストをRのグループに分類するには？

Question

私は私が探しています出力は

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

私の現在のアプローチは、それぞれを変換することである

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

でそれらを分類したい言葉

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

のベクトルを持っていますそれらをdata.tableに設定し、mergeを使用してカテゴリを取得します。他の簡単なソリューションはありますか？

Answer 1

ここに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