Масштабирование значений оси X

Question

Я пытаюсь построить функцию, описанную ниже.Однако, когда я строю график, на оси x отображается 0 до 1000, вероятно, из-за моего определения x0, а не от 0 до 10. Однако, если я просто использую 1:10 в качестве своих значений x, графиксовсем не гладко.Мой вопрос: как мне установить ось X, чтобы дать мне реальные значения, которые соответствуют функции в этой точке?

PS: я видел решения, где люди полностью заменяют ось 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))

Работает нормально