如果R中的两个条件的总和小于X，则删除数据行

我在看两个海湾中鲸鱼的数量。我的数据结构如下：

  | Date  |Gulf |Calf |Adult |ALL |
------------------------------
 1|  9/09 | G   | 2   | 18   | 20
 2|  9/09 | S   | 1   | 20   | 21
 3| 10/09 | G   | 5   | 2    | 7
 4| 10/09 | S   | 3   | 2    | 5

我想用R来删除两个海湾中鲸鱼总数不超过15头或更少的日期，以及两条小鲸不到的海湾。本例中的输出如下所示：

  | Date  |Gulf |Calf |Adult |ALL |
------------------------------
 1|  9/09 | G   | 2   | 18   | 20

第2排在墨西哥湾的幼鲸数量少于2头，第3排和第4排当天总共有12头鲸鱼，少于16头。我试过：

sum <- plyr::ddply(Gs, c("Date", "Gulf"), numcolwise(sum))

morethanone<-(sum %>%
  group_by(Date,Gulf) %>%
  summarise(Calf=(Calf[Calf > 1]),Date, Gulf))

这段代码去掉了不到2条鲸鱼的海湾，但我的数据是按日期/海湾求和的，我不希望这样。我还必须弄清楚如何摆脱两个海湾中总共有15头或更少鲸鱼的日子

---

非常感谢您的时间和帮助

基本R选项可能使用如下子集

subset(df,ave(ALL,Date,FUN = min)>15 & Calf >=2)

或

给

  Date Gulf Calf Adult ALL
1 9/09    G    2    18  20

资料

---

一个基本R选项可能会使用下面这样的子集

subset(df,ave(ALL,Date,FUN = min)>15 & Calf >=2)

或

给

  Date Gulf Calf Adult ALL
1 9/09    G    2    18  20

资料

带有dplyr的选项

数据 带有dplyr的选项

数据

---

什么变量告诉你鲸鱼的数量？小牛和成年列告诉你该年龄组中鲸鱼的数量，所有列是这两列的总和。谢谢你的提问！什么变量告诉你鲸鱼的数量？小牛和成年列告诉你该年龄组中鲸鱼的数量，所有列是这两列的总和。谢谢你的提问！

library(dplyr)
df %>% 
   group_by(Date) %>% 
   filter(all(ALL > 15), Calf >= 2)
# A tibble: 1 x 5
# Groups:   Date [1]
#  Date  Gulf   Calf Adult   ALL
#  <chr> <chr> <int> <int> <int>
#1 9/09  G         2    18    20

df <- structure(list(Date = c("9/09", "9/09", "10/09", "10/09"), Gulf = c("G", 
"S", "G", "S"), Calf = c(2L, 1L, 5L, 3L), Adult = c(18L, 20L,
2L, 2L), ALL = c(20L, 21L, 7L, 5L)), class = "data.frame", row.names = c("1",
"2", "3", "4"))