关于在r中绘制分段函数的一个问题

Question

我想在R中绘制下面的分段函数，但我在定义它时遇到了麻烦。我想定义下面的function.It，当x在0和小于10之间时，取值为0.31，对于x在10和29之间，取值为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)) 

(请注意*表示乘法)