缩放X轴值

Question

我试图绘制下面描述的功能。但是，当我绘制它时，x轴显示0到1000，可能是由于我对x0的定义，而不是0到10。但是，如果我只使用1:10作为我的x值，那么根本不顺利。我的问题是：如何设置x轴以给出与该点功能相对应的实际值？

PS：我已经看到人们用自己的值完全替换x轴的解决方案，但我正在寻找一种只使用x的实际值的方法。

eq <- function(x){
  4*x^3 - 72*x^2 + 288*x
}

x0 <- seq(1, 10, by = 0.01)

plot(eq(x0),type='l',main="Plot of 4*x^3 - 72*x^2 + 288*x", xlab = "x", ylab = "4*x^3 - 72*x^2 + 288*x")

Answer 1

你错过了你的x0值。 R根据x中的元素数量推导出eq(x0)值（默认使用序列1:1000）。顺便说一下，你可以使用expression改善你的标签

plot(x = x0, 
     y = eq(x0),
     type='l',
     main=expression(paste("Plot of ", 4*x^3 - 72*x^2 + 288*x)), 
     xlab = expression(x), 
     ylab = expression(4*x^3 - 72*x^2 + 288*x))

它工作正常