按时间根据列中的特定值提取行答案

【问题标题】：Extract the rows based on the specific values in the column by time按时间根据列中的特定值提取行
【发布时间】：2021-04-14 03:43:24
【问题描述】：

我有一个数据框看起来像：

Date	v1	v2
2000/8/10	S	2600
2000/8/10	S	500
2000/8/10	S	3500
2001/11/12	B	2000
2001/11/22	B	1000
2001/11/22	S	1000
2001/12/06	B	1000
2001/12/06	B	1500
2001/12/06	B	1000
2001/12/07	S	2000
2001/12/07	B	4000

但是，我想提取在同一日期具有“B”和“S”的行如下所示：

Date	v1	v2
2001/11/22	B	1000
2001/11/22	S	1000
2001/12/07	S	2000
2001/12/07	B	4000

有人有想法吗？那将不胜感激！干杯

【问题讨论】：

标签： r time rows data-extraction

【解决方案1】：

您可以选择同时包含'S' 和'B' 的Date。

library(dplyr)

df %>%
  group_by(Date) %>%
  filter(all(c('S', 'B') %in% v1)) %>%
  ungroup

#  Date       v1       v2
#  <chr>      <chr> <int>
#1 2001/11/22 B      1000
#2 2001/11/22 S      1000
#3 2001/12/07 S      2000
#4 2001/12/07 B      4000

这个逻辑也可以在base R和data.table中实现：

#Base R
subset(df, as.logical(ave(v1, Date, FUN = function(x) all(c('S', 'B') %in% x))))

#data.table
library(data.table)
setDT(df)[, .SD[all(c('S', 'B') %in% v1)], Date]

数据

df <- structure(list(Date = c("2000/8/10", "2000/8/10", "2000/8/10", 
"2001/11/12", "2001/11/22", "2001/11/22", "2001/12/06", "2001/12/06", 
"2001/12/06", "2001/12/07", "2001/12/07"), v1 = c("S", "S", "S", 
"B", "B", "S", "B", "B", "B", "S", "B"), v2 = c(2600L, 500L, 
3500L, 2000L, 1000L, 1000L, 1000L, 1500L, 1000L, 2000L, 4000L
)), row.names = c(NA, -11L), class = "data.frame")

【讨论】：