r - 如何使用ifelse绘制自定义分段函数

Question

f = function(x) {
  y <- rep(0, length(x))
  y <- x[x >= 0 & x < 1]
  y <- 2 - x[x >= 1 & x < 2]
  return(y)
}

这是我用来获取分段函数图的一种方法f。如何使用命令ifelse获取 f(x) 的图？