r - 在 R 中绘制函数

Question

我刚开始在类里面使用 R，我正在尝试绘制这个函数:

首先，这是我定义它的尝试。

> f<-function(x)
+ if(x<0) {
+ sin(x)
+ } else if (x>=2) {
+ 4*exp(x-2)
+ } else {
+ x^2 }

鉴于我得到的结果，我认为这是正确的:

> f(1)
[1] 1
> f(0)
[1] 0
> f(-1)
[1] -0.841471
> f(2)
[1] 4
> f(3)
[1] 10.87313

所以现在我想绘制它，但我不确定哪个命令可以正确地绘制它。我试过 plot(f,x,y) 是 x 和 y 任何值，例如 (-4,4) 或 (-2,3)，但 R 给了我一条警告消息。

Answer 1

1)尝试曲线并确保首先对其进行矢量化:

fv <- Vectorize(f)
curve(fv, -4, 4)

给予(截屏后继续):

2) 从一开始就以向量化的方式交替定义 f:

g <- function(x) ifelse(x < 0, sin(x), ifelse(x >= 2, 4 * exp(x-2), x^2))
curve(g, -4, 4)

3) 这也适用于 fv 或 g:

x <- seq(-4, 4, .1)
plot(x, fv(x), type = "l")