也许你想要ifelse：

a <- c(1,1,1,1,0,0,0,0,2,2)
ifelse(a>0,a/sum(a),1)

 [1] 0.125 0.125 0.125 0.125 1.000 1.000 1.000 1.000
 [9] 0.250 0.250

if语句未向量化。对于向量化if语句，应使用ifelse。在您的情况下，只需编写

w <- function(a){
if (any(a>0)){
  a/sum(a)
}
  else 1
}

或短的矢量化版本

ifelse(a > 0, a/sum(a), 1)

这取决于你想使用哪一个，因为第一个函数给出长度为1的输出向量（在else部分），ifelse给出长度等于a的输出向量。

我只是想补充一点，为什么会出现这个警告（我之前并不清楚）。之所以会出现这个警告，是因为这里的a是一个向量，而不等式a〉0产生了另一个TRUE和FALSE的向量（其中a是否〉0）。
如果您想测试是否有任何'a〉0'的值，您可以使用函数- 'any'或'all'
最佳

下面是不使用ifelse的简单方法：

(a/sum(a))^(a>0)

举个例子：

a <- c(0, 1, 0, 0, 1, 1, 0, 1)

(a/sum(a))^(a>0)

[1] 1.00 0.25 1.00 1.00 0.25 0.25 1.00 0.25

我处理这个问题的方式是，当我尝试做一些类似的事情时，我定义了一个函数，并且像其他人指出的那样，它是用数组调用的
您可以这样做，但是对于这种情况，与Sven的方法相比，它没有那么优雅。

sapply(a, function(x) afunc(x))

afunc<-function(a){
  if (a>0){
    a/sum(a)
  }
  else 1
}

正常创建函数后使用lapply函数。

lapply(x="your input", fun="insert your function name")

lapply给出了一个列表，因此使用unlist函数将它们从函数中取出

unlist(lapply(a,w))

我认为最有效的方法是user1317221_G的答案。但是，如果您想回到基础，那么使用for函数在向量的长度上循环（因为if函数在向量的长度上不起作用）会很有用。

w <- c() ##creates empty vector named 'w'
for(i in 1:length(a)){
  if (a[i]>0){
    w[i] <- a[i]/sum(a)
  }
  else 
    w[i] <- 1
}