提取出位置索引且请求对得到匹配/在Web访问会话发生

Question

我有一个数据帧

lf = structure(list(session_id = c(48L, 48L, 48L, 48L, 48L, 48L, 54L, 
54L, 54L, 54L, 54L, 54L, 72L, 72L, 72L, 72L, 72L, 74L, 74L, 74L, 
74L, 74L, 78L, 78L, 78L, 78L, 78L, 90L, 90L, 90L), datetime = structure(c(1457050110, 
1457050111, 1457050112, 1457050114, 1457050117, 1457050118, 1457052045, 
1457052048, 1457052050, 1457052051, 1457052052, 1457052054, 1457057067, 
1457057067, 1457057067, 1457057070, 1457057071, 1457058143, 1457058143, 
1457058144, 1457058149, 1457058150, 1457059193, 1457059193, 1457059195, 
1457059198, 1457059199, 1457063485, 1457063486, 1457063486), class = c("POSIXct", 
"POSIXt"), tzone = "UTC"), request = c(7, 7, 14, 20, 9, 4, 9, 
1, 12, 20, 6, 12, 4, 15, 8, 8, 12, 10, 6, 6, 13, 1, 5, 6, 20, 
1, 8, 3, 6, 13)), .Names = c("session_id", "datetime", "request" 
), row.names = c(NA, -30L), class = c("grouped_df", "tbl_df", 
"tbl", "data.frame")) 

现在，我检查了一定对请求（REQ1，REQ2）的这个子集匹配或者不在给定的数据框中，如果匹配，则获取匹配发生的位置索引。

我使用这段代码： -

lf1 = lf %>% group_by(session_id) %>% do(positions = match(c(1,6),.$request)) 

正如你看到的我正在要求对（1,6）为示范目的的实例。

所需的输出： -

如果可能的话，我想筛选出那些session_ids了来港。因此，同时具有匹配位置1和位置2只session_ids切不可NA

Answer 1

如果我们需要从“LFL”总的输出，ungroup数据，然后filter出具有任何NA list元素行和mutate打造“位置1”和'position2'

library(dplyr) 
library(purrr) 
lf1 %>% 
    ungroup %>% 
    filter(map_lgl(positions, ~all(!is.na(.)))) %>% 
    mutate(position1 = map_int(positions, ~.[1]), position2 = map_int(positions, ~.[2])) 
# A tibble: 3 x 4 
# session_id positions position1 position2 
#  <int> <list>  <int>  <int> 
#1   54 <int [2]>   2   5 
#2   74 <int [2]>   5   2 
#3   78 <int [2]>   4   2