Mengapa pernyataan ifelse R tidak dapat mengembalikan vektor?

Saya telah menemukan pernyataan ifelse R cukup berguna dari waktu ke waktu. Sebagai contoh:

ifelse(TRUE,1,2)
# [1] 1
ifelse(FALSE,1,2)
# [1] 2

Tapi saya agak bingung dengan perilaku berikut.

ifelse(TRUE,c(1,2),c(3,4))
# [1] 1
ifelse(FALSE,c(1,2),c(3,4))
# [1] 3

Apakah ini pilihan desain di atas tingkat pembayaran saya?

Dokumentasi untuk ifelsenegara bagian:

ifelsemengembalikan nilai dengan bentuk yang sama seperti testyang diisi dengan elemen yang dipilih dari salah satu yesatau nobergantung pada apakah elemen dari testis TRUEatau FALSE.

Karena Anda melewati nilai tes panjang 1, Anda mendapatkan hasil panjang 1. Jika Anda melewati vektor uji yang lebih panjang, Anda akan mendapatkan hasil yang lebih panjang:

> ifelse(c(TRUE, FALSE), c(1, 2), c(3, 4))
[1] 1 4

Jadi ifelsedimaksudkan untuk tujuan khusus menguji vektor boolean dan mengembalikan vektor dengan panjang yang sama, diisi dengan elemen yang diambil dari (vektor) yesdan noargumen.

Ini adalah kebingungan umum, karena nama fungsinya, untuk menggunakan ini ketika Anda sebenarnya hanya menginginkan if () {} else {}konstruksi normal .

Saya yakin Anda menginginkan ifpernyataan sederhana daripada ifelse- di R, ifbukan hanya struktur aliran kontrol, ini dapat mengembalikan nilai:

> if(TRUE) c(1,2) else c(3,4)
[1] 1 2
> if(FALSE) c(1,2) else c(3,4)
[1] 3 4

Perhatikan bahwa Anda dapat menghindari masalah jika Anda menetapkan hasilnya di dalam ifelse:

ifelse(TRUE, a <- c(1,2), a <- c(3,4))
a
# [1] 1 2

ifelse(FALSE, a <- c(1,2), a <- c(3,4))
a
# [1] 3 4

ya, saya pikir ifelse () benar-benar dirancang untuk saat Anda memiliki vektor pengujian yang besar dan ingin memetakan masing-masing ke salah satu dari dua opsi. Misalnya, saya sering membuat warna untuk plot () dengan cara ini:

plot(x,y, col = ifelse(x>2,  'red', 'blue'))

Jika Anda memiliki vektor panjang besar tes tetapi ingin pasang untuk output, Anda bisa menggunakan sapply()atau plyrs' llply()atau sesuatu, mungkin.

Terkadang pengguna hanya membutuhkan switchpernyataan, bukan ifelse. Dalam hal itu:

condition <- TRUE
switch(2-condition, c(1, 2), c(3, 4))
#### [1] 1 2

(yang merupakan opsi sintaks lain dari jawaban Ken Williams)

Berikut adalah pendekatan yang serupa dengan yang disarankan oleh Cath, tetapi dapat bekerja dengan vektor yang telah ditetapkan sebelumnya

Ini didasarkan pada penggunaan get()seperti:

a <- c(1,2)
b <- c(3,4)
get(ifelse(TRUE, "a", "b"))
# [1] 1 2

gunakan `if`, mis

> `if`(T,1:3,2:4)
[1] 1 2 3

Dalam kasus Anda, menggunakan if_elsefrom dplyrakan sangat membantu: if_elselebih ketat daripada ifelse, dan menimbulkan kesalahan untuk kasus Anda:

library(dplyr)
if_else(TRUE,c(1,2),c(3,4))
#> `true` must be length 1 (length of `condition`), not 2

Ditemukan di everydropr :

ifelse(rep(TRUE, length(c(1,2))), c(1,2),c(3,4))
#>[1] 1 2

Dapat mereplikasi hasil kondisi Anda untuk mengembalikan panjang yang diinginkan