如何在R中绘制线性函数f(x)=ax+b并将其放置在正交坐标系中

问题原因 #

你提供的代码无法运行主要有两点语法错误：

• 系数a、b没有提前赋值，R无法识别这两个变量
• 乘法运算不能省略运算符，a x需要改为a*x
  要实现正交坐标系，只需要给绘图函数添加asp=1参数，强制横纵轴刻度等比例即可。

实现方案 #

方法1：用curve函数直接绘制

不需要提前定义自定义函数，直接传入表达式即可，适合快速绘制单条线性函数：

# 自定义线性函数的系数，可根据需求修改
a <- 2
b <- 3

# 绘制线性函数
curve(expr = a*x + b, 
      from = -10, to = 10, # 设置x轴的显示范围
      ylab = expression(f(x) == a*x + b), 
      main = "正交坐标系下的线性函数",
      asp = 1, # 正交坐标系核心参数，保持横纵轴等比例
      col = "blue", lwd = 2)

# 可选：添加x、y轴的0刻度参考线，更易读
abline(h = 0, v = 0, col = "gray", lty = 2)

方法2：用abline函数绘制

适合在已有的坐标系上叠加线性函数，和你找到的示例逻辑一致：

# 先生成空的正交坐标系
plot(x = c(-10, 10), y = c(-10, 10),
     type = "n", # 仅生成坐标系，不绘制散点
     xlab = "x", ylab = "f(x)",
     main = "abline法绘制线性函数",
     asp = 1)

# 添加0刻度参考线
abline(h = 0, v = 0, col = "gray", lty = 2)

# 绘制线性函数：abline第一个参数为截距b，第二个参数为斜率a
a <- 2
b <- 3
abline(a = b, b = a, col = "red", lwd = 2)

补充说明 #

如果需要绘制不同系数的线性函数做对比，只需要修改a、b的赋值后，重复调用curve或abline即可，新的线条会自动叠加到已有坐标系上。

内容的提问来源于stack exchange，提问作者Hécate