Question

我想在间隔[-1,1]上绘制函数g，其中g是满足以下条件的函数：

对于x <0 g（x）= x ^ 2 + 1

否则g（x）=-4x-4

所以我定义了一个函数（g）：

g=function(x) ifelse(x<0, x^2+1, -4*x-4)

当我使用函数graph(g,-1,1)时，我得到了该函数的图形以及不连续点（x = 0）中的垂直线。

我的问题是：

我为什么要得到这行以及如何摆脱它？

Answer 1

垂直跳线是由0引起的，当 x == 0 时，您得到-4。解决方法可能是在NA时返回x == 0。

原始代码：

g <- function(x) ifelse(x<0, x^2+1, -4*x-4)
curve(g, -1, 1, main = "Original")

删除0（不返回NA）：

g_no0 <- function(x) ifelse(x == 0, NA, ifelse(x<0, x^2+1, -4*x-4))
curve(g_no0, -1, 1, main = "No 0")