如何在r中使用类型列表（）的列上的条件过滤数据表行，r

Question

我有一个data.table，看起来像 （仅显示许多列中的几列） -

ID	期间	产品
1000797366	2018-q1	UG10000000000000000-WISD
1000797366	2018-Q1	NX11100100 ，UG10000-WISD，UG12210
1000797366	2018-Q1	UG10000-WISD，UG12210
1000797366	2018-Q1	UG10000-WISD，UG12210
1000797366	2018-Q1	UG12210
1000797366	2018-Q1	NX11100
1000797366	2018-Q1 2018-Q1	NX11100 NX11100

在此处“产品”列的“产品”，这样，以便以后的用法。

但是我在根据产品列上的条件过滤行时面临问题。

我想要的是过滤所有行，而其他文件的值可以是该向量C（“ UG12210”，“ UG10000-WISD”）的所有行 例如C中的周期（“ 2018-Q1”）。

因此，我的输出应该看起来像这样

-ID	期	产品
1000797366	2018-Q1	UG10000-WISD
1000797366	2018-Q1	NX11100，UG10000-WISD，UG122210
1000797366	2018 -Q1	Wis121111211012111118
UG1000000000000000000000000000000000000000000-21000000个	-Q111118 -Q1	20186666110 YUG12110姐妹 -
1000797366	2018-Q1	UG12210

，但这并没有以某种方式发生，我尝试了以下条件，但没有奏效。

data_test[Period %in% c("2018-Q1") & is.element("UG12210",Product),]

data_test[Period %in% c("2018-Q1") & Product %in% c("UG12210"),]

关于如何实现它的任何潜在客户都会有很大的帮助。谢谢！

下面是数据使用 dput（）的数据

structure(
  list(
    Id = c("1000797366", "1000797366", "1000797366", "1000797366", "1000797366", "1000797366", "1000797366"),
    Period = c("2018-Q1", "2018-Q1", "2018-Q1", "2018-Q1", "2018-Q1", "2018-Q1", "2018-Q1"),
    Product = list("UG10000-WISD", c("NX11100", "UG10000-WISD", "UG12210"), c("UG10000-WISD", "UG12210"),
      c("UG10000-WISD", "UG12210"), "UG12210", "NX11100", "NX11100")
  ),
  row.names = c(NA,-7L),
  class = c("data.table", "data.frame"),
  .internal.selfref = < pointer:0x562f66275020 >
)

Answer 1

您可以使用sapply函数来检查vals中的任何值是否在product中：

vals = c("UG12210","UG10000-WISD")

dt[Period %chin% "2018-Q1" & sapply(Product, function(v) any(vals %chin% v))]

#            Id  Period                      Product
# 1: 1000797366 2018-Q1                 UG10000-WISD
# 2: 1000797366 2018-Q1 NX11100,UG10000-WISD,UG12210
# 3: 1000797366 2018-Q1         UG10000-WISD,UG12210
# 4: 1000797366 2018-Q1         UG10000-WISD,UG12210
# 5: 1000797366 2018-Q1                      UG12210

Answer 2

我们可以使用 lapply 在list上循环，检查是否有是否有vector> vector（'v1'的任何值） ）在每个列表元素和子集

library(data.table)
v1 <- c("UG12210","UG10000-WISD")
dt1[Period %chin% c("2018-Q1") & 
      unlist(lapply(Product, function(x) any(v1 %chin% x)))]

输出中

          Id  Period                      Product
       <char>  <char>                       <list>
1: 1000797366 2018-Q1                 UG10000-WISD
2: 1000797366 2018-Q1 NX11100,UG10000-WISD,UG12210
3: 1000797366 2018-Q1         UG10000-WISD,UG12210
4: 1000797366 2018-Q1         UG10000-WISD,UG12210
5: 1000797366 2018-Q1                      UG12210