Сумма значений ниже порога с постоянной

Question

Например, у меня есть вектор:

x <- c(6, 22, 18, 5, 19, 14, 17, 88,30, 0, -1, 2, 3)

Как проверить значения меньше 17 и изменить значения на value + some const?

примерно так:

x[x < 17] <- lesser vaue + 18

ожидаемый результат:

c(24, 22, 18, 23, 19, 32, 17, 88,30, 18, 17, 20, 21)

Answer 1

вот пример

x[x<17] <- x[x<17]+18

Answer 2

x <- ifelse(x < 17, x + 18, x)

Другое решение: если x меньше 17, добавьте 18, иначе x примет как есть.

Answer 3

Другой вариант - case_when

library(dplyr)
case_when(x  < 17 ~ x + 18, TRUE ~ x)
#[1] 24 22 18 23 19 32 17 88 30 18 17 20 21