r - 在不连接 "jump"的情况下在 R 中绘制不连续函数

Question

我想在不连接跳转的情况下绘制一个不连续的函数。例如，在下图中，我想删除连接 (0.5, 0.5) 和 (0.5, 1.5) 的线。

f <- function(x){
  (x < .5) * (x) + (x >= .5) * (x + 1)
}
ggplot()+ 
  geom_function(fun = f)

编辑:我正在寻找一种解决方案，即使折扣点不是整数，例如 pi/10，也能正常工作。

Answer 1

您可以编写一个小的包装函数来查找给定函数中的不连续点并将它们绘制为单独的组:

plot_fun <- function(fun, from = 0, to = 1, by = 0.001) {
  
  x <- seq(from, to, by)
  groups <- cut(x, c(-Inf, x[which(abs(diff(fun(x))) > 0.1)], Inf))
  df <- data.frame(x, groups, y = fun(x))
  
  ggplot(df, aes(x, y, group = groups)) +
    geom_line()
}

这允许

plot_fun(f)

plot_fun(floor, 0, 10)