如何将无穷大和-无穷大放在带有绘图的图形上

Question

在附图中，我想用 -Inf 替换 -1，用 Inf 替换 3。

这是代码：

F <- function(x){
    f <- NULL
    f[x<0] <- 0
    f[x>=0 & x<1] <- 0.4*x[x>=0 & x<1]^2
    f[x>=1 & x<2] <- 0.2*x[x>=1 & x<2]^2+(0.2)
    f[x>=2] <- 1
    f
}
x <- seq(-1, 3, 0.01)
plot(x, F(x), type="l", las=1)

Answer 1

使用

xaxt='n'

省略 x 轴。

axTicks(1)

为您提供当前的价格变动位置；您可以替换第一个和最后一个元素，并将它们替换为自定义内容。

plot(x, F(x), type="l", las=1, xaxt='n')
atl <- axTicks(1)
atl[c(1, length(at))] <- c('-Inf', 'Inf')
axis(1, at=axTicks(1), labels=atl)