缩放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))

效果很好