如何在R中使用sparklyr.nested变形嵌套的列

Question

我正在尝试转换sparklyr和sparklyr.nested中的嵌套列

具体示例日期如下所示

a <- copy_to(con, data.frame(type = c('a', 'a','a', 'b','b', 'b'), pin = c(1,2, 3, 4, 5, 6), hour = c(12, 20, 50, 60, 22, 66) ))
b <- copy_to(con, data.frame(type = c('a', 'b', 'a', 'b'), mode = c('TT', 'TT', 'AX', 'AX'), pin = c(1, 4, 2, 5), key = c("app", "interface", "app", "interface")))

a_nst <-a %>%
  sdf_nest(pin, hour)%>%
  group_by(type)%>%
  summarize(pop = collect_list(data))
b_nst <- b %>%
  sdf_nest(pin, key)%>%
  group_by(type, mode) %>%
  summarize(record = collect_list(data))
 c <- b_nst %>%
  left_join(a_nst, by = 'type')
glimpse(c)

我想要的转换是我可以删除记录中具有相同图钉的pop项目。

例如，在以下情况下： 类型='a'，模式='AX'，记录= [[2，app]]，弹出= [[1,12]，[2、20]，[3,50]]。

结果将为类型='a'，模式='AX'，记录= [[2，app]]，弹出= [[1,12]，[3,50]]。弹出的[2,20]被删除，因为它的pin = 2已被记录。