R将逻辑向量替换为“ on”或“ off”

Question

我正在尝试创建一个衬板，该衬板将基于true或false将逻辑向量替换为“ on”或“ off”。

我能想到的最好的方法是使用2 gsubs。

假设我有矢量tmp

tmp <- sample(100,100)

我可以用

blah <- tmp > 50
blah <- gsub(FALSE, "no", blah)
blah <- gsub(TRUE, "yes", blah)

实现我想要的，但是我敢打赌，这里有一个更优雅的解决方案。

Answer 1

使用ifelse ：

blah <- ifelse(tmp > 50, "yes", "no")

Answer 2

尝试

r1 <- c('no', 'yes')[(tmp>50)+1]
identical(r1, blah)
#[1] TRUE

要么

 r2 <- as.character(factor(tmp>50, labels=c('no', 'yes')))
 identical(r1, r2)
#[1] TRUE

要么

 library(qdap)
 r3 <-  mgsub(c(FALSE, TRUE), c('no', 'yes'), tmp > 50)
 identical(r1,r3)
 #[1] TRUE

要么

 library(car)
 r4 <- recode(tmp>50, "FALSE='no'; TRUE='yes'")
 identical(r1,r4)
 #[1] TRUE