3항 연산자가 R에 존재합니까?
질문에 따르면, R에 C의 3진 연산자와 유사한 제어 시퀀스가 있습니까?그렇다면 어떻게 사용합니까?감사합니다!
~하듯이if는 에기합다니에서 합니다.R합니다. 은 if-valuation은 if-valuation과 동일합니다. if-valuation은 if-valuation은 if-valuation과 .?:.
> 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 언어의 내부를 배우는 데 좋을 것입니다.
사람들이 른사말이이듯했들사용람다,이, 용사▁use▁like듯을 사용합니다.ifelse그러나 거의 3차 연산자 구문을 갖도록 연산자를 정의할 수 있습니다.
`%?%` <- 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"
(은 (의) 순위 : 낮음?.)
불행하게도, 그러면 기존의 도움말 및 시퀀스 연산자가 깨집니다.
if다음과 같은 방식으로 사용할 경우 미공개 if와 같은 작업을 수행합니다.
`if`(condition, doIfTrue, doIfFalse)
이 이상을 사용하는 장점은 벡터화가 방해가 될 때입니다(즉, 결과적으로 스칼라 부울 및 리스트/벡터 사물이 있음)
ifelse(TRUE, c(1,2), c(3,4))
[1] 1
`if`(TRUE, c(1,2), c(3,4))
[1] 1 2
저는 그것을 볼 것입니다.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"
장난으로, 당신은 다시 정의할 수 있습니다.?연산자가 (거의) 3차 연산자처럼 작동합니다(이것은 나쁜 생각입니다).
`?` <- 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백트릭으로:
?`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)
둘의 차이점은condition11인 길이 1인 벡야 합여 니다 터논 리가다 ▁of▁must▁be▁a입니다. 반면condition2는 다과같길논벡합니다터야여와 같은 .x,y,그리고.z첫 번째는 다음 중 하나를 반환합니다.y또는z객체), 두는 (으)ㄹ 수 있고, 두 번째 합니다.y(condition2==TRUE) 또는z(condition2==FALSE).
또한 참고:ifelse보다 느릴 것if/else한다면condition,y,그리고.z길이가 1인 모든 벡터입니다.
tidyverse는 dplyr 라이브러리에 if_dll 함수가 있습니다.baseifelse()와 비교하여 이 기능은 더 엄격합니다.true와 false가 동일한 유형인지 확인합니다.이러한 엄격함으로 인해 출력 유형을 더욱 예측할 수 있으며 출력 유형이 다소 빨라집니다.
if_else(a == 1, 1, 2)
저는 R에서 C의 조건부 3항 연산자를 모방한 작은 언어 확장을 작성했습니다.여기서 패키지로 설치할 수 있습니다.
구현은 @kohske가 제공한 답변을 기반으로 하지만 if_true 및 if_false 인수가 콜론을 포함하고, 조건문이 체인화될 수 있고, 기본 기능을 유지할 수 있는 경우에 견고하도록 몇 가지 변경했습니다.?교환입니다.
연산자를 재정의하는 것의 위험성에 대한 다른 사람들의 경고를 참조하겠지만, 그것은 R 언어가 얼마나 역동적일 수 있는지를 보여주는 깔끔한 예입니다!
언급URL : https://stackoverflow.com/questions/8790143/does-the-ternary-operator-exist-in-r
'programing' 카테고리의 다른 글
| pthread_create 및 마지막 인수로 정수 전달 (0) | 2023.06.20 |
|---|---|
| 파이썬의 제네릭/템플릿? (0) | 2023.06.20 |
| SpringBoot 1.4에서 SpringMVC 슬라이스 테스트 문제 (0) | 2023.06.20 |
| 유형 스크립트의 정적 메서드에서 클래스 유형 인수에 액세스하기 위한 해결 방법 (0) | 2023.06.20 |
| 클릭 후 VBA Excel 버튼 크기 조정(명령 버튼) (0) | 2023.06.20 |