R：如果僅存在於幾個向量中，則從多個向量中刪除元素

Question

如果多個矢量中僅包含幾個元素，該如何刪除它們。 例如，如果我有以下兩個向量

> Text <- c("AB.txt", "B.txt", "C.txt")
> Text2 <- c("B.txt", "C.txt")

然后我嘗試使用grep刪除所有帶有'A'的元素：

> Text[-grep( “A”, Text)]
[1] "B.txt" "C.txt"

但是，當我在Text2上執行此操作時，所有元素都會消失在網絡空間中。

> Text2[-grep( “A”, Text2)]
character(0)

如何更改代碼，使其適用於所有矢量？

提前致謝，

保羅

Answer 1

您可以使用invert參數：

Text[grep("A", Text, fixed = TRUE, invert = TRUE)]
#[1] "B.txt" "C.txt"
Text2[grep("A", Text2, fixed = TRUE, invert = TRUE)]
#[1] "B.txt" "C.txt"

Answer 2

如果查看一下grep("A", Text2)實際返回的內容：

grep("A", Text2)
# integer(0)

也就是說，它在Text2找不到'A'。 因此，您的Text2[-integer(0)]將不會返回任何內容

您可以使用grepl來測試字符是否存在（或在這種情況下不使用! ）

Text[!grepl("A", Text)]
# [1] "B.txt" "C.txt"
Text2[!grepl("A", Text2)]
# [1] "B.txt" "C.txt"

---

在此，如果字符/樣式匹配，則grepl返回邏輯值。 在此示例中，對於Text2 ，在任何一個元素中均未找到“ A”

grepl("A", Text2)
# [1] FALSE FALSE

因此，現在我們可以“取反”它，並對原始向量進行子集化，這與進行Text2[!c(FALSE, FALSE)]

Answer 3

一種選擇是確定我們要保留的Text2中的索引。 這是所有未出現在grep輸出中的索引。

Text2[!c(1:length(Text2)) %in% grep("A", Text2)]