分段函数续

Posted 2022-11-22 统计学小王子

这里写目录标题

• 引言
• 例子1
• 例子2
• 总结

引言

之前写过一篇分段函数的多curve函数作图方法，但是该方法再多个函数函数段时具有很大的缺点，本文介绍单个函数加单个plot的分段函数作图命令。

例子1

$$f\left(x\right)=\begin{array}{l}{x}^2,x<0,\\ -x^2,x>0.\end{array}$$

fun <- function(x)
  x^2*(x>=0) - x^2*(x<0)

plot(fun, from = -1, to = 1)

例子2

例子1直接指定函数以及画图范围即可，但是如果想要指定x画图。则需要用到下面的命令：

> x <- runif(100, -5, 5)
> plot(sort(x), fun(sort(x)), type = "l")

总结

本文主要用的时plot.function这个函数，下面是函数内容：

> plot.function
function (x, y = 0, to = 1, from = y, xlim = NULL, ylab = NULL, 
    ...) 

    if (!missing(y) && missing(from)) 
        from <- y
    if (is.null(xlim)) 
        if (is.null(from)) 
            from <- 0
    
    else 
        if (missing(from)) 
            from <- xlim[1L]
        if (missing(to)) 
            to <- xlim[2L]
    
    if (is.null(ylab)) 
        sx <- substitute(x)
        ylab <- if (mode(x) != "name") 
            deparse(sx)[1L]
        else 
            xname <- list(...)[["xname"]]
            if (is.null(xname)) 
                xname <- "x"
            paste0(sx, "(", xname, ")")
        
    
    curve(expr = x, from = from, to = to, xlim = xlim, ylab = ylab, 
        ...)

<bytecode: 0x0000000008d29f40>
<environment: namespace:graphics>

可以看出本质上还是调用curve函数。