根据符号（+/-）在R中拆分向量

Question

我想基于其符号拆分矢量。 我有一个看起来像这样的矢量：

v <- c(1, 2,-4,-8 ,-9, 4)

载体中有3组。 阳性组（指数1和2），阴性组（指数3,4,5）和另一个阳性组（指数6）。 我想得到每组的FIRST索引的向量....

所以我想要的结果是包含标记1,3,6的向量

如果向量具有任意数量的任意大小的组，我希望这可以工作。

有帮助吗？

谢谢！

Answer 1

您可以使用sign来挑选符号，然后使用diff来查看这些更改的位置。

c(1,which(diff(sign(v))!=0)+1)
[1] 1 3 6

Answer 2

@ James解决方案的另一种选择是使用sequence和rle ：

which(sequence(rle(sign(v))$lengths) == 1)
# [1] 1 3 6