求助：R语言画抛物线

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

用plot(x,y)画出散点图，发现x和y是二次函数的关系，如何画出抛物线的拟合图

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：R语言 抛物线 二次函数 plot 散点图 抛物线 散点图 二次函数 如何

plot(x,y,"l")
Arguments to be passed to methods, such as graphical parameters (see par). Many methods will accept the following arguments:

type
what type of plot should be drawn. Possible types are

"p" for points,

"l" for lines,

"b" for both,

"c" for the lines part alone of "b",

"o" for both ‘overplotted’,

"h" for ‘histogram’ like (or ‘high-density’) vertical lines,

"s" for stair steps,

"S" for other steps, see ‘Details’ below,

"n" for no plotting.

358463121 发表于 2015-1-25 13:27
plot(x,y,"l")
Arguments to be passed to methods, such as graphical parameters (see par). Many metho ...

参数“l”是把所有点连起来，没办法画出二次函数的拟合曲线

fit <- lm(y~x+I(x^2))
plot(x,y)
lines(x,fitted(fit))

1. curve(x^2,-100,100)

复制代码

gni456 发表于 2015-1-25 15:27
fit

画不出拟合的二次曲线

昨天的事 发表于 2015-1-27 00:38
画不出拟合的二次曲线

不应该啊

gni456 发表于 2015-1-27 10:30
不应该啊

1. a<-data.frame(
   
2. X=c(10.0, 8.0, 13.0, 9.0, 11.0, 14.0, 6.0, 4.0, 12.0, 7.0, 5.0),
   
3. Y=c(9.14,8.14, 8.74,8.77,9.26,8.10,6.13,3.10, 9.13,7.26,4.74))
   
4. lm2.sol<-lm(Y2~X+I(X^2)); summary(lm2.sol)
   
5. plot(a$X,a$Y)
   
6. lines(a$X,fitted(lm2.sol))

复制代码

昨天的事 发表于 2015-1-28 21:35

先把数据按X从小到大排序再用lines()就好了
X <- c(10.0, 8.0, 13.0, 9.0, 11.0, 14.0, 6.0, 4.0, 12.0, 7.0, 5.0)
Y <- c(9.14,8.14, 8.74,8.77,9.26,8.10,6.13,3.10, 9.13,7.26,4.74)
a <- data.frame(X,Y)
a <- a[order(X), ]
fit <- lm(Y~X+I(X^2),data=b)
plot(X,Y)
lines(a$X,fitted(fit))
l

gni456 发表于 2015-1-29 09:48
先把数据按X从小到大排序再用lines()就好了
X

非常感谢