Заменить все значения ниже порогового значения в R

Question

У меня есть вектор

x <- c(-1, 0, 1, 2, 3) 

Я хочу, чтобы все значения меньше 1 заменить на 1.

Как?

Есть ли решение без петли?

Answer 1

pmax является хорошим кандидатом на эту

> pmax(x, 1) 
    [1] 1 1 1 2 3 

Answer 2

Использование логической индексации с заменой:

x[ x<1 ] <- 1 

Answer 3

Другие решения являются более подходящими. Это просто для удовольствия:

(x > 1) * (x - 1) + 1 
#[1] 1 1 1 2 3 

Простая замена (@Matthew Lundberg) является наиболее эффективным решением:

library(microbenchmark) 
microbenchmark(pmax(1, x), 
       "[<-"(x, x < 1, 1), 
       (x > 1) * (x - 1) + 1) 

# Unit: microseconds 
#     expr min  lq median  uq max neval 
#    pmax(1, x) 15.494 16.2545 16.5165 16.9365 52.165 100 
#  `[<-`(x, x < 1, 1) 1.466 1.6920 2.3325 2.7485 23.683 100 
# (x > 1) * (x - 1) + 1 2.084 2.2870 2.7880 3.2080 8.958 100 

Answer 4

Другим вариантом было бы replace:

x <- c(-1, 0, 1, 2, 3) 

replace(x, x < 1,1) 
# [1] 1 1 1 2 3