正如问题所问,R中是否存在一个类似于C的三元算子的控制序列?如果有,你如何使用它?谢谢!


当前回答

If的工作方式类似于未向量化的ifelse,如果按以下方式使用:

`if`(condition, doIfTrue, doIfFalse)

使用这个优于ifelse的优势是当向量化是在路上(即我有标量布尔和列表/向量的东西作为结果)

ifelse(TRUE, c(1,2), c(3,4))
[1] 1
`if`(TRUE, c(1,2), c(3,4))
[1] 1 2

其他回答

我会看一下ifelse命令。我认为它更好,因为它也是向量化的。一个使用cars数据集的例子:

> cars$speed > 20
 [1] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[13] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[25] FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE FALSE
[37] FALSE FALSE FALSE FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE
[49]  TRUE  TRUE

> ifelse(cars$speed > 20, 'fast', 'slow')
 [1] "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow"
[11] "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow"
[21] "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow"
[31] "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow" "slow"
[41] "slow" "slow" "slow" "fast" "fast" "fast" "fast" "fast" "fast" "fast"

Tidyverse在dplyr库中有if_else()函数。与基础函数ifelse()相比,这个函数更加严格。它检查true和false是否为同一类型。这种严格性使输出类型更可预测,并使其更快。

if_else(a == 1, 1, 2)

我写了一个小的语言扩展,它在r中模拟C的条件三元运算符。它可以作为一个包从这里安装

实现是基于@kohske给出的答案,但我做了一些更改,使其健壮到if_true和if_false参数包含冒号的情况下,允许条件语句被链接,并保留的基本功能?操作符。

我将参考其他人关于重新定义操作符的危险的警告,但这是R语言可以多么动态的一个很好的例子!

你的链接指向一个if语句。

> x <- 1
> if(x < 2) print("Less than") else print("Greater than")
[1] "Less than"

如果你的输入变量是一个向量,那么ifelse可能更适合:

> x <- 1:3
> ifelse(x<=2, "Less than or equal", "Greater than")
[1] "Less than or equal" "Less than or equal" "Greater than"   

要访问if的帮助页面,你需要在反引号中嵌入if:

?`if`

ifelse的帮助页面在:

`?ifelse`

If的工作方式类似于未向量化的ifelse,如果按以下方式使用:

`if`(condition, doIfTrue, doIfFalse)

使用这个优于ifelse的优势是当向量化是在路上(即我有标量布尔和列表/向量的东西作为结果)

ifelse(TRUE, c(1,2), c(3,4))
[1] 1
`if`(TRUE, c(1,2), c(3,4))
[1] 1 2