与==比较字符串的意外结果

Question

我有两个向量：

a = strsplit("po","")[[1]]
[1] "p" "o"

b = strsplit("polo","")[[1]]
[1] "p" "o" "l" "o"

我试图使用=比较它们。不幸的是，a==b给出了一个意想不到的结果。

a==b
[1]  TRUE  TRUE FALSE  TRUE

虽然我希望：

[1]  TRUE  TRUE FALSE  FALSE

那么，这是什么原因造成的呢？怎样才能达到预期的效果呢？

这个问题似乎与这样一个事实有关，即两个向量的最后一个元素与将b更改为例如polf确实给出了预期的结果相同，并且还因为将b设置为puo给出TRUE FALSE TRUE而不是TRUE TRUE TRUE。

编辑

换句话说，我希望丢失的元素（当长度不同时）作为零传递（只有“似乎给出真假，NA和NULL给出不同的结果）。

c("p","o","","")==c("p","o","l","o")
[1]  TRUE  TRUE FALSE FALSE




Answer 1

为了得到OP中显示的结果，我们可以将两个向量放入列表中，调整它们的长度s至maximum长度（通过添加NA的），并测试比较是否为%真。

list(a, b) |>
  (\(.) lapply(., `length<-`, max(lengths(.))))() |>
  (\(.) do.call(\(x, y, ...) (x == y) %in% TRUE, .))()
# [1]  TRUE  TRUE FALSE FALSE

注：R版本4.1。2（2021-11-01）

数据：

a <- c("p", "o")
b <- c("p", "o", "l", "o")

Answer 2

你在这里遇到的问题是由于回收（不是环保型的）。当对要求长度相同的两个向量应用操作时，R通常会自动循环或重复较短的向量，直到其足够长以匹配较长的向量。您意外的结果是因为R将向量c（“p”、“o”）循环为长度4（较大向量的长度），并将其实质上转换为c（“p”、“o”、“p”、“o”）。如果我们比较c（“p”、“o”、“p”、“o”）和c（“p”、“o”、“l”、“o”）我们可以看到，我们得到了上述意想不到的结果：

c("p", "o", "p", "o") == c("p", "o", "l", "o")
#> [1]  TRUE  TRUE FALSE  TRUE

我不太清楚为什么你会期望结果是TRUE-FALSE-FALSE，因为比较length-2向量和length-4向量有点模棱两可，循环使用length-2向量（这就是R所做的）似乎是除了抛出错误之外最合理的默认值。