在R中想添加一条拟合曲线，且在曲线上显示拟合方程，该怎么弄，能给个例子么？

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

在R中做散点图时，想添加一条拟合曲线，且在曲线上显示拟合方程，该怎么弄，能给个例子么？

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：拟合曲线 怎么弄 散点图 散点图

1. x <- 1:10
   
2. y <- 2*x + rnorm(x)
   
3. plot(x, y)
   
4. fit <- lm(y ~ x)
   
5. abline(fit)
   
6. a <- fit$fitted.values[1]
   
7. b <- fit$fitted.values[2]
   
8. a <- round(a, 3)
   
9. b <- round(b, 3)
   
10. text(x = 6, y = 10, labels = paste("y = ", a, " * x + ", b, sep = ""), cex = 1.5)

复制代码

谢谢！学习了！

qoiqpwqr 发表于 2014-12-13 21:25

你好，请问怎么在数据的散点图中加一条我拟合出的非线性回归方程啊，谢谢

wei2364 发表于 2016-5-10 18:49
你好，请问怎么在数据的散点图中加一条我拟合出的非线性回归方程啊，谢谢

把代码发来看看

qoiqpwqr 发表于 2016-5-11 11:08
把代码发来看看

BZ~q*(1-exp(-r*A))^c,BZ是我的因变量，A是自变量，三个参数qrc（已求出），数据是mydata，想在原始散点图上加上这条拟合方程的平滑曲线，请问如何添加呢，谢谢。

qoiqpwqr 发表于 2016-5-11 11:08
把代码发来看看

BZ~q*(1-exp(-r*A))^c,BZ是我的因变量，A是自变量，三个参数qrc（已求出），数据是mydata，想在原始散点图上加上这条拟合方程的平滑曲线，请问如何添加呢，谢谢。

1. A <- c(0.911391059169546, 0.700922730378807, 0.287606584141031, 0.798194639850408,
   
2.        0.273508067475632, 0.545873732306063, 0.594794518779963, 0.00523322797380388,
   
3.        0.444398718653247, 0.720799215137959, 0.673824350349605, 0.00961975660175085,
   
4.        0.854947665706277, 0.79491505632177, 0.12973429216072, 0.474037067266181,
   
5.        0.627358501311392, 0.552734353812411, 0.451682103797793, 0.724533301545307,
   
6.        0.529012193670496, 0.161024130648002, 0.674072406021878, 0.83145214477554,
   
7.        0.644747903104872, 0.859134120866656, 0.0559316521976143, 0.332636523293331,
   
8.        0.852410276886076, 0.811694039963186)
   
9. BZ <- c(1.65883760803237, 1.65033236896828, 0.613025546389589, 1.84354929556077,
   
10.         1.06358069184972, 1.2388978290292, 1.35286931593815, 0.0239765681882558,
    
11.         1.40227249039399, 1.57447412005708, 1.97633538123449, -0.0617352086653915,
    
12.         2.51984165039315, 1.57608754335889, 0.160315958072163, 1.20943537184662,
    
13.         1.51916346411001, 1.70484119822929, 1.09371917167339, 1.99621085885374,
    
14.         1.29636307308317, 0.508742134068585, 1.59539845205967, 1.86442056257438,
    
15.         1.50606493247774, 1.72639343844019, -0.0240068774959244, 1.15392425694623,
    
16.         1.85118541140068, 1.18664526710743)
    
17. plot(A, BZ)
    
18. q <- 2
    
19. r <- 3
    
20. c <- 1.5
    
21. curve(q*(1-exp(-r* x))^c, add = TRUE)

复制代码

wei2364 发表于 2016-5-12 16:17
BZ~q*(1-exp(-r*A))^c,BZ是我的因变量，A是自变量，三个参数qrc（已求出），数据是mydata，想在原始散点图 ...

你的参数如何求出来的？

添加文本标签 text(x = 0.4, y = 0.5, labels = paste("BZ = ", q,"(1-exp(-", r,"* x))^",c, sep = ""), cex = 1) 就可以 （X Y CEX可以改）但是确实想知道 QRC三个参数 怎么求出来的