的R - 匹配矢量到表

Question

我有行列的表：

Apple 1 
Banana 2 
Orange 3 
... 40 

其中1是最高的，40是最低等級。

我從其他來源提取包含1到4個條目的任何東西的矢量，例如，

c(apple,orange) 
c(apple,banana,orange) 
c(orange) 

欲這些載體與秩匹配，所以 C（橙色）是容易的，秩= 3 但C（蘋果，香蕉，橘子）應該從所有的值的接收的最低範圍內，所以在這種情況下3.

任何意見讚賞。

Answer 1

也許這樣的事情？

tab <- data.frame(
    fruit = c("apple","banana","orange"), 
    rank = 1:3 
) 

# fruit rank 
#1 apple 1 
#2 banana 2 
#3 orange 3 

vec1 <- c("apple","orange") 
vec2 <- c("apple","banana","orange") 
vec3 <- c("orange") 

tab$rank[max(match(vec1,tab$fruit))] 
#[1] 3 
tab$rank[max(match(vec2,tab$fruit))] 
#[1] 3 
tab$rank[max(match(vec3,tab$fruit))] 
#[1] 3 

Answer 2

例如，

# let tab = your table 
x <- c(apple,banana,orange) 
lowest.rank <- min(sapply(x, function(x) tab[names(tab)==x])