如何在R中比较两个相同长度的向量，但不是逐个对象地比较

Question

示例：我有两个具有以下结构的向量（它们也可以是数据帧的两列）。

A <- c("a", "d", "f", "a", "n", "d", "d")

B <- c("h xx", "a xxx", "f xxxx", "d xxxxx", "a xxx", "h xx", "f xxxx")

我需要比较两个形状矢量：如果A的对象等于B的对象的第一个元素，则用B的对象替换A的对象。
对于上述示例，对象A[1]为a ，将与B[2]为a xxx匹配，因此对象A [1]将被对象B[2]代替。 最后， A将具有以下元素： "a xxx" "d xxxxx" "f xxxx" "a xxx" "n" "d xxxxx" "d xxxxx"

Answer 1

您可以使用%in%进行match如下所示：

A[A %in% substr(B, 1, 1)] <- B[match(A, substr(B, 1, 1), nomatch=FALSE)]
A
[1] "a xxx"   "d xxxxx" "f xxxx"  "a xxx"   "n"       "d xxxxx" "d xxxxx"

在这里， %in%选择要替换的A的位置，然后match找到正确的替换顺序。 使用nomatch=FALSE以便忽略A中不在B中的元素，而不是返回NA，这是默认值。 substr用于提取B的第一个字符进行匹配。

Answer 2

逻辑：我们遍历每个A ，然后使用grepl从B获得索引。

sapply(A,  function(x) {if(any(grepl(x, B))) x <- B[grepl(x, B)][1];x})
#        a         d         f         a         n         d         d 
#  "a xxx" "d xxxxx"  "f xxxx"   "a xxx"       "n" "d xxxxx" "d xxxxx" 

Answer 3

您好，这是您要找的东西：

for(i in 1:length(A)){
  for(j in 1:length(B)){
    if(A[i] == substr(B[j], 1, 1)){
       A[i] <- B[j]
    }
  }
}

# [1] "a xxx"   "d xxxxx" "f xxxx"  "a xxx"   "n"       "d xxxxx" "d xxxxx"