Существует ли тернарный оператор в R?
Как задается вопрос, есть ли последовательность управления в R, аналогичная c тернарный оператор? Если да, то как вы его используете? Спасибо!
7 ответов
As if
функции в R
и возвращает последнюю оценку, если-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-style ?:
:
`?` <- 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 языка.
как все говорили, используйте 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"
(это работает, потому что приоритет :
меньше ?
.)
к сожалению, это нарушает существующие операторы справки и последовательности.
просто шутка, Ты can изменить на ?
оператор (почти) работает как тернарный оператор (это плохая идея):
`?` <- 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
заявление.
> 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
в backticks:
?`if`
страница справки для ifelse
в:
`?ifelse`
он явно не существует, но вы можете сделать:
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
).
также обратите внимание, что ifelse
будет медленнее, чем if
/ else
если condition
, y
и z
все векторы длины 1.
if
работает как unvectorised ifelse, если используется следующим образом:
`if`(condition, doIfTrue, doIfFalse)
преимущество использования этого над ifelse заключается в том, что векторизация находится на пути (i.e у меня есть скалярные булевы и список/векторные вещи в результате)
ifelse(TRUE, c(1,2), c(3,4))
[1] 1
`if`(TRUE, c(1,2), c(3,4))
[1] 1 2