R中是不是存在三元运算符？
Posted
技术标签:
【中文标题】R中是不是存在三元运算符？【英文标题】：Does the ternary operator exist in R?R中是否存在三元运算符？ 【发布时间】：2012-02-06 02:08:57 【问题描述】：正如问题所问，R 中是否有类似于 C 的ternary operator 的控制序列？如果是这样，你如何使用它？谢谢！
【问题讨论】：
您想要比ifelse 更强大的东西，还是更紧凑的形式？
@CarlWitthoft 主要是更紧凑的形式；只是一种节省写作if (x>1) y=2 else y=3的方法。写y=曾经有一定的吸引力。
【参考方案1】：
我会看看ifelse 命令。我会更好地称呼它，因为它也是矢量化的。使用汽车数据集的示例：
> 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"
【讨论】：
嗨，保罗——你的意思是用你的例子展示一些关于ifelse的东西吗？ ;)【参考方案2】：
您的链接指向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`
【讨论】：
正如@kohske 所说，这也可以：print(if (x<2) "Less than" else "Greater than")【参考方案3】：
由于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 语言的一些内部知识。
【讨论】：
【参考方案4】：它并不明确存在，但你可以这样做：
set.seed(21)
y <- 1:10
z <- rnorm(10)
condition1 <- TRUE
x1 <- if(condition1) y else z
或
condition2 <- sample(c(TRUE,FALSE),10,TRUE)
x2 <- ifelse(condition2, y, z)
两者的区别在于condition1必须是长度为1的逻辑向量，而condition2必须是与x、y和z长度相同的逻辑向量。第一个将返回y 或z（整个对象），而第二个将返回y (condition2==TRUE) 或z (condition2==FALSE) 的对应元素。
另请注意，如果condition、y 和 z 都是长度为 1 的向量，ifelse 将比 if / else 慢。
【讨论】：
感谢 Joshua，您的回答帮了我很大的忙，我从您提到的帖子中找到了答案 ***.com/a/8792474/3019570【参考方案5】：就像其他人说的那样，使用ifelse，但您可以定义运算符，以便您几乎拥有三元运算符语法。
`%?%` <- function(x, y) list(x = x, y = y)
`%:%` <- function(xy, z) if(xy$x) xy$y else z
TRUE %?% rnorm(5) %:% month.abb
## [1] 0.05363141 -0.42434567 -0.20000319 1.31049766 -0.31761248
FALSE %?% rnorm(5) %:% month.abb
## [1] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
# or, more generally
condition %?% value1 %:% value2
如果你定义没有% 符号的运算符，它实际上可以工作，所以你可以有
`?` <- function(x, y) if(x) y[[1]] else y[[2]]
`:` <- function(y, z) list(y, z)
TRUE ? rnorm(5) : month.abb
## [1] 1.4584104143 0.0007500051 -0.7629123322 0.2433415442 0.0052823403
FALSE ? rnorm(5) : month.abb
## [1] "Jan" "Feb" "Mar" "Apr" "May" "Jun" "Jul" "Aug" "Sep" "Oct" "Nov" "Dec"
（这是因为: 的优先级低于?。）
不幸的是，这会破坏现有的帮助和序列运算符。
【讨论】：
【参考方案6】：作为一个恶作剧，您可以重新定义 ? 运算符以（几乎）像三元运算符一样工作（这是一个坏主意）：
`?` <- 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(`?`)
【讨论】：
【参考方案7】：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
【讨论】：
【参考方案8】：我编写了一个小型语言扩展，它在 R 中模拟 C 的条件三元运算符。它可以作为包从here 安装
该实现基于answer given by @kohske，但我做了一些更改，以便在 if_true 和 if_false 参数包含冒号的情况下保持稳健，允许链接条件语句并保留? 运算符的基本功能。
我将参考其他人关于重新定义运算符的危险的警告，但这是一个很好的例子，说明了语言 R 的动态性！
【讨论】：
以上是关于R中是不是存在三元运算符？的主要内容，如果未能解决你的问题，请参考以下文章