r - 关于在 r 中绘制分段函数的查询

Question

我想在 R 中绘制以下分段函数，但我无法定义它。我想定义以下函数。对于介于 0 和小于 10 之间的 x 和介于 10 和 29 之间的 x，它取值 0.31，它取值 0.31-0.00017397(x-10)，对于大于 29 的 x 也同样。下面是我的 R 代码。

f <- function(x){
ifelse((0 < x & x < 10),0.31,ifelse((10<= x & x < 29),(0.31-0.00017397(x-10)),ifelse((29<=x),(0.31-0.00052702(x-29)),NA)))
}
plot(f,xlim=c(0,35)) 

提前谢谢了！

Answer 1

这对我有用：

f <- function(x){
  ifelse((0 < x & x < 10),0.31,ifelse((10 <= x & x < 29),(0.31-0.00017397*(x-10)),ifelse((29 <= x),(0.31-0.00052702*(x-29)),NA)))
}
plot(f,xlim=c(0,35)) 

（注意 * 表示乘法）