R中多个约束条件下的类群

Question

目前，我试着学习R，但我坚持了以下几点。我有这张桌子

                       material       V1
1:                       Silber 450.7886
2:                Kupfer-Nickel   0.0000
3:                Silver Tantal  26.9928
4: Bimetall (Silber - Niobium))   8.9925

现在，我想把包含一串可能性列表的所有行加起来。我现在的方法是

merge <- c("Silver", "Silber")
materialsSplitted[any(sapply(merge, function(x) grepl(x, material, TRUE)))]

但问题是，我得到了与输入相同的表。

Answer 1

问题在于使用any与sapply包装。sapply返回逻辑matrix

materialsSplitted[,sapply(merge, function(x) grepl(x, material, TRUE))]
#     Silver Silber
#[1,]  FALSE   TRUE
#[2,]  FALSE  FALSE
#[3,]   TRUE  FALSE
#[4,]  FALSE   TRUE

当我们用any包装时，根据?any的说法

该值是长度为1的逻辑向量。

因此，在这里，它有真/假值，并返回一个TRUE

materialsSplitted[, any(sapply(merge, function(x) grepl(x, material, TRUE)))]
#[1] TRUE

它被回收为行索引，以返回所有行。相反，我们需要检查每一行是否有字符串匹配。为此，我们可以使用Reduce

materialsSplitted[Reduce(`|`, lapply(merge, function(x) grepl(x, material, TRUE)))]
#                       material       V1
#1:                       Silber 450.7886
#2:                Silver Tantal  26.9928
#3: Bimetall (Silber - Niobium))   8.9925