如何使用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）的图？