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

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

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

if_else(a == 1, 1, 2)

只是一个恶作剧，你可以重新定义?操作符(几乎)工作于三元操作符(这是一个坏主意):

`?` <- function(x, y) { y <-substitute(y); if(x) eval(y[[2]], parent.frame()) else eval(y[[3]], parent.frame()) }

x <- 1:3
length(x) ? (x*2) : 0
x <- numeric(0)
length(x) ? (x*2) : 0

for(i in 1:5) cat(i, (i %% 2) ? "Odd\n" : "Even\n")

．.． 但是你需要把表达式放在括号里因为默认的优先级和C语言不同。

只要记得在游戏结束后恢复旧的帮助功能:

rm(`?`)

就像if是R中的函数并返回最新的求值一样，if-else等价于?:。

> a <- 1
> x <- if(a==1) 1 else 2
> x
[1] 1
> x <- if(a==2) 1 else 2
> x
[1] 2

R的幂是向量化。三元运算符的向量化是ifelse:

> a <- c(1, 2, 1)
> x <- ifelse(a==1, 1, 2)
> x
[1] 1 2 1
> x <- ifelse(a==2, 1, 2)
> x
[1] 2 1 2

开玩笑，你可以定义c风格?::

`?` <- function(x, y)
    eval(
      sapply(
        strsplit(
          deparse(substitute(y)), 
          ":"
      ), 
      function(e) parse(text = e)
    )[[2 - as.logical(x)]])

在这里，你不需要考虑括号:

> 1 ? 2*3 : 4
[1] 6
> 0 ? 2*3 : 4
[1] 4
> TRUE ? x*2 : 0
[1] 2
> FALSE ? x*2 : 0
[1] 0

但你需要括号赋值:(

> y <- 1 ? 2*3 : 4
[1] 6
> y
[1] 1
> y <- (1 ? 2*3 : 4)
> y
[1] 6

最后，你可以用类似的方法来处理c:

`?` <- function(x, y) {
  xs <- as.list(substitute(x))
  if (xs[[1]] == as.name("<-")) x <- eval(xs[[3]])
  r <- eval(sapply(strsplit(deparse(substitute(y)), ":"), function(e) parse(text = e))[[2 - as.logical(x)]])
  if (xs[[1]] == as.name("<-")) {
    xs[[3]] <- r
        eval.parent(as.call(xs))
  } else {
    r
  }
}       

你可以去掉括号:

> y <- 1 ? 2*3 : 4
> y
[1] 6
> y <- 0 ? 2*3 : 4
> y
[1] 4
> 1 ? 2*3 : 4
[1] 6
> 0 ? 2*3 : 4
[1] 4

这些不是日常使用的，但可能有助于学习R语言的一些内部知识。

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

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

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