R 少向量条件查询

简短的问题。。使用以下示例数据：

Equips <- c(1000829,1000829,1000829,1000829,10002244,10002244,
10002244,10002244,10002244,10002244)
Notifs <-     c(306989814,306991263,306991263,306991263,306749278,306749278,
306749278,306749278,306854440,306868916)
Comps <- c("Ignition and Flame Detection","Ignition and Flame Detection","Control Box",
"Ignition and Flame Detection","Service Boiler!!!","CH Components Passive",
"Ignition and  Flame Detection","not grouped in WCC",
"Electrical Components","Flue Duct")
rank <- c(1,2,2,2,1,1,1,1,2,3)
df <- data.frame(Equips,Notifs,Comps,rank)

---

装备也许是这个？代码中的问题是，在函数中用
df
替换了
d
。在我看来，我的答案在…方面是正确的

也许是这个？代码中的问题是，在函数中用
df
替换了
d
。在我看来，我的答案在…方面是正确的

您没有机会安装任何软件包是什么意思？你需要基本解决方案？是的，我需要基本解决方案。。。很抱歉误解您…您没有机会安装任何软件包是什么意思？你需要基本解决方案？是的，我需要基本解决方案。。。对不起，误会了……是的，先生，我真的不知道我做了什么？！是的，先生，我真的不知道我做了什么？！
 result <- by(df, df$Equips, function(d) {
    nb.comps <- length(unique(df$Comps))
    tab <- table(df$rank, df$Comps) > 0
    tab <- margin.table(tab, 2)
    return(sum(tab>=nb.comps)>0)
  })

data.frame(nb.equips=dim(result), nb.matched=sum(result))

result <- by(df, df$Equips, function(d) {
    nb.comps <- length(unique(d$Comps))
    tab <- table(d$rank, d$Comps) > 0
    tab <- margin.table(tab, 2)
    return(sum(tab>=nb.comps)>0)
  })

R> result
df$Equips: 1000829
[1] TRUE
-------------------------------------------------------- 
df$Equips: 10002244
[1] FALSE
R> data.frame(nb.equips=dim(result), nb.matched=sum(result))
  nb.equips nb.matched
1         2          1