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

Question

我的数据框如下所示：

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

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

Answer 1

您可以 select Date 其中包含 'S' 和 'B'。

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")

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

Extract the rows based on the specific values in the column by time

r

time

rows

data-extraction