曲线函数误解的问题

Question

我将函数f定义为：

f <- function(x){
  if (x < 0) {
    x^3-x^2+4
  } else {
    -4*x+2
  }
}

现在我想用曲线函数绘制它，例如间隔[-100,100]。

所以我写

curve(f,from=-100,to=100)

我只在间隔[-100,100]上得到函数x ^ 3-x ^ 2 + 4

为什么我在间隔[0,100]上没有得到函数-4x + 2？

例如，当我想在间隔[3,4]上绘制函数f时，它表明我的功能很好。当必须在一个图形中绘制两个函数时，这似乎是一个问题。