R - 带有两个条件的 ifelse 语句

Question

我是 R 的新手，想了解为什么“ifelse”在我的情况下会失败。

我有一个经度和半径的向量。 如果 lons < 0 那么代码应该执行 lons - (zrad/dxy)，如果 lons >= 0 则应该计算 lons + (zrad/dxy)。

一些示例数据：

lons <- c(-80,4)
zrad <- c(747,576)
dxy  <- 222

test <- ifelse(lons < 0 | lons >= 0, lons - (zrad/dxy), lons + (zrad/dxy))
View(test)

这给了我

1   -83.364865
2   1.405405

然而， lons - (zrad/dxy) 是

-83.364865  1.405405 

和 lons + (zrad/dxy) 是

-76.635135  6.594595

但正确的结果应该是

-83.364865 6.594595

我是否需要使用 for 循环，以便“测试”包括第一次和第二次计算的结果？ 或者有没有更简单的方法来区分这两种情况（条件）？

Answer 1

条件不正确， lons < 0 | lons >= 0 lons < 0 | lons >= 0基本上是所有数字，因此它只执行lons - (zrad/dxy) 。 尝试：

test <- ifelse(lons < 0, lons - (zrad/dxy), lons + (zrad/dxy))
test
#[1] -83.364865   6.594595

Answer 2

我们可以使用case_when

library(dplyr)
test <- case_when(lons < 0 ~ lons - (zrad/dxy), TRUE ~ lons + (zrad/dxy))