彙總條件語句

Question

我試圖找到一個沒有複雜子集和/或逐行迭代的優雅解決方案。我會通過例子來解釋：

# Load data 
df1 <- mtcars 

# Can aggregate with simple math functions i.e. mean or sum 
hp_by_cyl <- aggregate(hp ~ cyl, data=df1, mean) 
> hp_by_cyl 
    cyl  hp 
1 4 82.63636 
2 6 122.28571 
3 8 209.21429 

好的。但是，在我真正更復雜的數據中，我希望彙總一個邏輯值 - 即，如果屬於類別A的任何行的x爲真，則y = 1。所以致以例如我可以創建邏輯變量柱：

df1$logic <- ifelse(df1$gear==4 & df1$hp < 150, 1, 0) 
# How do I aggregate the logical values levels of cyl to answer yes/no 
# if any car with x cylinders has 4 gears and < 150 hp ? 
# So I want an finished table like this: 
cyl  logic 
4  1 
6  1 
8  0 

我的問題是如何使用集合體（或替代）命令，以產生像這樣的表？即組合邏輯狀態而不是數值？

我還需要處理也是在現實中編碼缺失值，從而效仿這種複雜性，我會做出一個邏輯的99：

df1[5, ]$logic <- 99 

如果cyl一個價值的一定水平是1， 99可以忽略 - 但如果所有其他人都是0，那麼聚合應該是99.

道歉，如果有一個簡單的答案我沒有看到我的真實數據，它似乎令人望而生畏。我可以破解一個令人討厭的解決方案，但我知道它會很慢，我有一個14000 X 140大小的數據集。預先感謝所有。

Answer 1

首先，不要打擾0/1/99，只是將它保留爲TRUE/FALSE/NA。

df1$logic <- df1$gear==4 & df1$hp < 150 

然後，只需用聚合或anytapply。

aggregate(logic ~ cyl, data=df1, any) 
## cyl logic 
## 1 4 TRUE 
## 2 6 TRUE 
## 3 8 FALSE 

with(df1, tapply(logic, cyl, any)) 
## 4  6  8 
## TRUE TRUE FALSE 

的plyr包，特別是ddply功能，是許多人認爲更直觀的另一種選擇。

library(plyr) 
ddply(df1, ~cyl, summarize, isany = any(gear==4 & hp < 150)) 
## cyl isany 
## 1 4 TRUE 
## 2 6 TRUE 
## 3 8 FALSE 

Answer 2

我想這是你想要的東西：

aggregate(hp~cyl,data=mtcars,function(x) ifelse(mean(x)<150,1,0)) 

編輯： dplyr是你的朋友：

mtcars %>% group_by_(~cyl) %>% summarise_(logic=~ifelse(mean(hp)<150 & sum(wt)>3,1,0)) 

這有一個更復雜的邏輯語句，所以希望有幫助。如果您想一次處理2個以上的變量，則不是最好的方法。