如何比较两个字符串在每个索引处的字符？

我有两个长度相同的字符串。我想按元素比较字符串并为每个索引返回 TRUE 或 FALSE。例如：

string1 <- "abcd1234"
string2 <- "abcd1434"
result <- [T,T,T,T,T,F,T,T]

到目前为止，我已经有了字符串，并且通过取消列出它们来创建了字符向量，但到目前为止我还无法让 R 中的任何字符串函数正常工作。我知道我可以使用 for 循环并执行简单的 == 但我想知道是否有某种矢量化方法可以做到这一点。

str1 <- unlist(str_split(string1, "")) 
str2 <- unlist(str_split(string2, "")) 

还有一些情况，其中一个字符串会有一个 _ ，表明该字符本质上是一个通配符，不需要检查其是否相等。这就是为什么我试图让正则表达式之一在 R 中工作，这样我就可以用通配符替换 _ 。

string1 <- "abcd_234"
string2 <- "abcd1224"
result <- [T,T,T,T,T,T,F,T] 

apply(do.call(rbind, strsplit(c(string1, string2), "")), 2, function(x){
    length(unique(x[!x %in% "_"])) == 1
})
#[1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE

您还可以稍微修改 Rich 已删除的答案

Reduce(f = function(s1, s2){
    s1 == s2 | s1 == "_" | s2 == "_"
},
x = strsplit(c(string1, string2), ""))
#[1]  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE FALSE  TRUE

请注意，第一种方法将允许比较两个以上的字符串