R 缩放X轴值

我正在尝试绘制下面描述的函数。然而，当我绘制它时，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")

---

eq您错过了
x0
值。R根据
eq（x0）
中的元素数量推导出
x
值（默认情况下使用序列
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))

它很好用

Upvote，但可能
main=expression（粘贴（“绘图”，4*x^3-72*x^2+288*x））
和
ylab=expression（4*x^3-72*x^2+288*x）
会更好。非常感谢您的帮助：）