r - "conditional"地 block

Question

我很好奇如何绘制定义如下的函数:

 if(x < 1)
   f(x) = x/10 * 1.2
 if(x < 3)
   f(x) = x/12 * 1.7
 ...
 else
   f(x) = x/15 * 2

如果函数很简单，比如 f(x) = x/10 * x/5 ，那么就没有问题，可以使用 curve() 方法。但是我不确定处理更复杂功能的最佳方法是什么，比如上面的那个。有任何想法吗？加分，如果可以使用 ggplot() :)

Answer 1

曲线还是有可能的。 (当你阅读统计文献时，这个公式显示为 I[x]，“I”代表“指标”。)

curve( (x <1)*( (x/10)*1.2 ) +       # one line for each case
       (!(x <1)&(x<3) )*(x/12)*1.7 + # logical times (local) function
        (x >=3)*(x/15)*2 ,
        0,4)                         # limits