R语言如何将指定区间外的数值截断为区间上下边界值

你要实现的是将向量中小于下界a的值替换为a、大于上界b的值替换为b，除了你给出的基础子集赋值写法，以下几种单行/专用函数写法都可以实现，效率和简洁度都更高：

• 无依赖基础R写法（通用场景首推）
  直接嵌套基础R自带的并行极值函数pmax()和pmin()即可，不需要加载任何第三方包，大向量下运算效率很高，结果和基础写法完全一致：

  set.seed(123)
  x <- rnorm(100)
  a <- -1
  b <- 2
  # 核心实现
  x_res <- pmax(a, pmin(x, b))
  

  逻辑很简单：先用pmin(x, b)把所有超过上界b的值压到b，再用pmax(..., a)把所有低于下界a的值抬到a，全程不需要手动写子集筛选逻辑，不容易出索引错误。

• 嵌套判断写法（不推荐大向量用）
  用双层ifelse()也可以一行实现，但运算效率比上面的pmax/pmin写法低很多，仅适合短向量临时用：

  x_res <- ifelse(x < a, a, ifelse(x > b, b, x))
  

• 专用语义化函数写法
  如果你日常用dplyr做数据处理，可以直接调用它自带的专用截断函数clamp()，参数语义非常直白，不需要嵌套：

  # 需先加载dplyr包
  x_res <- dplyr::clamp(x, lower = a, upper = b)
  

内容的提问来源于stack exchange，提问作者user18894435