在R语言绘图中标注带参数的公式

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

在以往R语言的教材、帮助示例和各类读书笔记中，有关图形中标注公式的介绍只有指定符号和数字的介绍。如何像SPSS那样在计算结束后将带参数的模型计算公式一并绘制在图形中呢？其实提取模型参数很简单，关键是如何将模型变量名和公式提取出来并与参数重组公式，下面我给出一个简单的小例子说明这个过程。

    这是一个简单的回归过程：
## 输入数据
变量<-c(0.1,0.11,0.12,0.13,0.14,0.15,0.16,0.17,0.18,0.20,0.21,0.23)
GDP<-c(42,43.5,45,45.5,45,47.5,49,53,50,55,55,60)
## 回归分析
lm.sol<-lm(GDP ~  变量)
summary(lm.sol)
## 提取参数
c <- round(coef(lm.sol),3)
#  提取公式变量名
fm <- strsplit(deparse(formula(lm.sol))," " )
## 绘图
plot(lm.sol$model ,main = "回归结果")
lines(lm.sol$fitted.values,lm.sol$model[,2])
#  在图上标注回归公式
text(51 ,0.13,as.expression(paste(fm[[1]][1], "=", c[1],"+",c[2],"*",fm[[1]][3])))

    结果：

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：R语言 SPSS 读书笔记 计算公式 PSS 语言 公式 参数 绘图 标注

方法还有很多的~~~~

谢谢分享啊

expression配合paste命令能起到很好的效果。

恩、不错，写latex时排的上用