ผู้ประกอบการที่ประกอบไปด้วยอยู่ใน R หรือไม่?

ตามคำถามที่ถามมีลำดับการควบคุมใน R คล้ายกับตัวดำเนินการประกอบของ C หรือไม่ ถ้าเป็นเช่นนั้นคุณจะใช้มันอย่างไร? ขอบคุณ!

ในฐานะที่ifเป็นฟังก์ชั่นในและผลตอบแทนการประเมินล่าสุดถ้า-อื่นจะเทียบเท่ากับR?:

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

พลังของ R คือ vectorization vectorization ของผู้ประกอบการที่สามคือ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

เหมือนที่คนอื่นพูดใช้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"

(ใช้งานได้เนื่องจากความสำคัญของ:ต่ำกว่า?)

น่าเสียดายที่การแบ่งความช่วยเหลือและตัวดำเนินการลำดับที่มีอยู่

เช่นเดียวกับการเล่นตลกคุณสามารถกำหนด?โอเปอเรเตอร์ให้เป็น (เกือบ) ทำงานเหมือนโอเปอร์เรเตอร์ที่ประกอบไปด้วย (นี่คือไอเดียที่ไม่ดี):

`?` <- 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(`?`)

ฉันจะดู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"

ลิงก์ของคุณชี้ไปที่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คุณจะต้องฝังifbackticks:

?`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 ใช้งานได้ถ้าไม่ได้เปิดเผยถ้าใช้ในลักษณะต่อไปนี้:

`if`(condition, doIfTrue, doIfFalse)

ข้อได้เปรียบของการใช้ ifelse นี้คือเมื่อ vectorisation อยู่ในเส้นทาง (เช่นฉันมี scalar boolean และ list / vector เป็นผลลัพธ์)

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