r - 其中的倒数

Question

我在这里遗漏了一些明显的东西吗？出现which的反函数缺少基础 R(谷歌搜索，甚至在 SO 上搜索“R inverse which”返回无数不相关的链接)？

好吧，并不是说我不能写一个，只是为了减轻我对它丢失和作为 R 肌肉弯曲挑战的沮丧:你会如何写一个？

我们需要的是这样的函数:

invwhich<-function(indices, totlength)

返回长度为 totlength 的逻辑向量其中 indices 中的每个元素是 TRUE剩下的就是 FALSE .

肯定有很多方法可以实现这一点(其中一些确实是低垂的果实)，所以请争论为什么您的解决方案是“最好的”。 Oneliner有人吗？

如果考虑到 which的其他一些参数( arr.ind ??)，那显然更好……

Answer 1

单线解决方案:

invwhich <- function(indices, totlength) is.element(seq_len(totlength), indices)

invwhich(c(2,5), 10)
[1] FALSE  TRUE FALSE FALSE  TRUE FALSE FALSE FALSE FALSE FALSE