如何在R语言plot绘图中设置正负无穷坐标轴（替换-1与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, xaxt="n")
# 自定义横轴：设置刻度位置和对应标签
axis(side=1, at=c(-1, 0, 1, 2, 3), labels=c("-Inf", "0", "1", "2", "Inf"))

关键改动说明： #

• xaxt="n"：让plot函数不绘制默认横轴，预留自定义空间
• axis(side=1, ...)：手动绘制底部横轴，at参数指定刻度的实际位置（保留原数据的关键节点），labels参数对应替换刻度的显示文本，将-1替换为-Inf、3替换为Inf

如果需要调整刻度数量或位置，只需修改at和labels中的对应值即可。

内容的提问来源于stack exchange，提问作者Amelia