查找数据框中没有先决条件记录的记录

时间:2018-11-07 23:09:32

标签: sql r sqlite sqldf

我有一个包含3列的数据框:TimestampMMR_NBRAction

对于所有MMR_NBR实例,

操作DFV必须在SAP Load之前发生。我想提取之前没有发生SAP Load动作的DFV实例。我在sqldf中使用R,并且我知道R使用SQLite数据库语言,因此窗口功能受到限制。我设法获得了记录,但是我想看看是否有一种更简单,更好的方法可以通过a SQL查询或任何R包(例如dplyr)来编写。

样本数据:

 df5 <- structure(list(Timestamp = structure(c(7L, 8L, 9L, 10L, 11L, 
1L, 2L, 3L, 4L, 5L, 6L, 12L, 13L, 16L, 17L, 18L, 14L, 15L, 19L, 
20L), .Label = c("8/14/2018 11:22:18 AM", "8/14/2018 11:30:03 AM", 
"8/14/2018 11:32:26 AM", "8/14/2018 4:03:27 PM", "8/14/2018 4:04:05 PM", 
"8/14/2018 4:04:11 PM", "8/20/2018 4:02:00 PM", "8/20/2018 6:12:50 PM", 
"8/21/2018 9:56:51 AM", "8/21/2018 9:56:59 AM", "8/22/2018 10:43:45 AM", 
"8/22/2018 10:43:57 AM", "8/22/2018 4:34:53 PM", "8/23/2018 1:53:25 PM", 
"8/23/2018 1:53:36 PM", "8/23/2018 11:47:15 AM", "8/23/2018 12:23:44 PM", 
"8/23/2018 12:26:20 PM", "8/23/2018 2:38:59 PM", "8/23/2018 2:39:19 PM"
), class = "factor"), MMR_NBR = structure(c(12L, 10L, 2L, 2L, 
8L, 11L, 5L, 5L, 7L, 7L, 7L, 8L, 9L, 3L, 4L, 4L, 1L, 1L, 6L, 
6L), .Label = c("B00215", "B00216", "B00218", "B00219", "K00364", 
"K00625", "K00632", "K00642", "K00646", "W00362", "W00364", "W00365"
), class = "factor"), Action = structure(c(1L, 1L, 1L, 2L, 1L, 
2L, 2L, 2L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 2L, 1L, 2L, 1L, 2L), .Label = c("DFV", 
"SAP Load"), class = "factor")), .Names = c("Timestamp", "MMR_NBR", 
"Action"), row.names = c(NA, 20L), class = "data.frame")

上述示例数据8/14/2018 11:22:18 AM W00364 SAP Load中的

必须与类似的记录一起返回,作为查询的结果。

R脚本:

sql="SELECT DISTINCT Timestamp, MMR_NBR, Action FROM df5 WHERE (Action='DFV' OR Action='SAP Load') AND MMR_NBR<>''"
df5 <- sqldf::sqldf(sql)

sql="SELECT MMR_NBR,Action, COUNT(*) FROM df5 GROUP BY MMR_NBR HAVING COUNT(*)=1"
df6 <- sqldf::sqldf(sql)

1 个答案:

答案 0 :(得分:1)

使用getNumber()

第1步:将时间戳记转换为实际时间戳记:

dplyr

第2步:

df5$Timestamp<- as.POSIXct(as.character(df5$Timestamp), format="%m/%d/%Y %I:%M:%S %p")

结果:

require(dplyr)
df5 %>% group_by(MMR_NBR) %>%
arrange(Timestamp) %>% # Order by time
filter(Action=="SAP Load" & cumsum(Action=="DFV")==0) # Extract those cases where Action is "SAP Load" and the total of previous rows where Action was "DFV" is zero