绘制一个类似于wolframalpha-网站的多项式函数，这样很容易理解

Question

在wolfram-alpha网站中绘制一个函数如下所示：

​

​

http://www.wolframalpha.com/link

在R中绘制相同的函数如下所示：

图(函数(X) x^2 - 3*x - 10 )

​

Wolfram的默认情节更容易理解。我认为这是因为它显示了x轴(在y=0)，并以抛物线为中心.

我在数学上还不够好，不能只看一个函数的公式，看看我应该把图放在哪里，我正在绘制函数来了解不同的函数是如何产生不同的线条的，所以我需要自动完成这个对中的操作，因为否则我可能会误解一个图。

是否有可能自动创建Wolfram-图，也就是说，不需要我告诉R，将情节集中在哪里是明智的？

Answer 1

polynom包将创建一些合理的默认设置。

例如：

library(polynom)

# your polynomial (coefficients in ascending powers of x order)
p <- polynomial(c(-10,-3,1))
plot(p)

​

​

 # a more complicated example, a polynomial crossing the x axis at -1,0,1,2,3,4,5

 p2 <- poly.calc(-1:5)
 p2 
 # -120*x + 154*x^2 + 49*x^3 - 140*x^4 + 70*x^5 - 14*x^6 + x^7 
 plot(p2)

​

​

Answer 2

您可以设置所需的间隔来绘制图，如?plot.function中所述。还请参阅curve和abline。

plot( function(x) x^2 - 3*x - 10 , -15, 15) ; abline(h=0,v=0,lty=3)

或

curve(x^2 - 3*x - 10 , -15, 15) ; abline(h=0,v=0,lty=3)

Answer 3

这是一个很老的帖子，但我试图根据我的模型的系数来拟合多项式曲线。

基数R中的原件：

plot( y ~ x) 
curve(3*x - 2*x^2 + 2*x^3)   ##  random coefficients for easy example 

我使用ggplot2 -所以我想使用从系数生成的曲线，而不是一个+ geom_smooth (这也有效，但我更喜欢下面的曲线)

bestfit <- geom_smooth(method = "loess", se = T, size = 1) 

ggplot2 
+ bestfit

相反，我用上面的系数创建了一个函数。

test 
test <- function(x) {3*x - 2*x^2 + 2*x^3} 

然后，我将它作为一个图层添加到in图中。

ggplot2
+ stat_function(fun = test)

它给出了与基本绘图函数相同的曲线，但我可以在ggplot中添加所有附加层。