R中的逻辑向量子集

Question

我正在用 R 编写一个函数，但我陷入了向量子集。

假设我有以下向量：

  ratio<-c(0,0,0,0,1.3,1.4)

我想对所有值 > 0 的向量进行子集化，如果存在一个或多个 0，我想在最终向量中只包含一个 0。

预期输出：

subset<-(0,1.3,1.4)

我尝试了以下方法：

sebset1<-ratio[ratio>0]
subset1
[1] 1.3 1.4

然后我使用 if：

subset2<- if(c(ratio==0)) {append (subset1, 0,after=length(subset1))}

我收到此警告：

Warning message:
In if (c(ratio == 0)) { :the condition has length > 1 and   only the first element will be used

但它有效：

subset2
[1] 1.3 1.4 0.0

但是，此解决方案不适用于没有 0 的向量，例如：

ratio2<-c(3,4,2,3,4)

因为当我使用

if

我得到一个 NULL 向量作为

subset2

知道我可以在哪里改进我的代码吗？

非常感谢您的帮助！

Answer 1

像这样构造代码最接近你对算法的英文描述：

filtered.ratio <- ratio[ratio > 0]
if (any(ratio == 0)) {
  filtered.ratio <- c(filtered.ratio, 0)
}

请注意，append 实际上仅在需要将元素插入到向量的内部位置时才优于 c。这种情况很少发生，因此您可以放心地忘记append。

Answer 2

试试这个.. 它没有子集

#if ratio's value between 0 to +Inf
mysubset = c(ratio[ratio>0],unique(ratio[ratio==0]))

#if ratio's value between -Inf to +Inf and you want to remove only zero like you mentioned in question 
mysubset = c(ratio[ratio!=0],unique(ratio[ratio==0]))

Answer 3

R 中的if 命令未向量化，因此if(ratio==0) 仅将第一个元素与零进行比较，因此如果第一个零在向量的后面，则不会起作用。试试：

subset1 <- ratio[ratio>0]
if(any(ratio==0)) subset2 <- c(0,subset1) else subset2 <- subset

另请注意，如果在测试为 FALSE 并且没有 else 部分时返回 NULL，这就是导致 NULL 出现问题的原因。