问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

ggplot2绘图时可以添加回归线与回归方程吗

发布网友 发布时间:2022-04-26 08:01

我来回答

1个回答

热心网友 时间:2022-06-25 14:49

给你一个示例的example;如何添加线性回归线以及线性回归方程:

libray(ggplot2)

df <- data.frame(x = c(1:100))

df$y <- 2 + 3 * df$x + rnorm(100, sd = 40)

p <- ggplot(data = df, aes(x = x, y = y)) +

  geom_smooth(method = "lm", se=FALSE, color="black", formula = y ~ x) +

  geom_point()

lm_eqn <- function(df){

  m <- lm(y ~ x, df);

  eq <- substitute(italic(y) == a + b %.% italic(x)*","~~italic(r)^2~"="~r2, 

                   list(a = format(coef(m)[1], digits = 2), 

                        b = format(coef(m)[2], digits = 2), 

                        r2 = format(summary(m)$r.squared, digits = 3)))

  as.character(as.expression(eq));                 

}

效果大致是这样的:

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
男人醉女人累原歌 我大概在2009年玩的很早的一款冒险动作游戏有一关是埃及狗头人主角捡武... 提成点数怎么算公式 Huamei/华美每日粗粮粗纤维饼-适用对象 0pp01107格式化后成白屏且不能开机怎么办 五邑大学是市属还是省属 五邑大学校区有几个 窝瓜焖荷包蛋怎么做? 达科塔·芬妮简要生平 湖北自动冷库多少钱 铆钉的作用你知道多少? 想要小猫小狗或宠物火化找什么样的机构 ? ggplot2画legend title怎么设置 ggplot 字体怎么设置成微软雅黑 那么在铆接过程中,铆*和顶铁分别在放置在铆钉哪端,哪种方式更合理?各自有什么优缺点? 上海哪里有宠物火化? Someone Like You - Adele mp3 猫狗等宠物遗体火化应该去哪家 ? 仪式感强猫狗等宠物遗体火化都有哪些机构,哪个更仪式感强啊? 沈阳哪有给宠物火化的地方?高分悬赏。 铆钉枪最长可以铆多长的铆钉 怎么用ggplot2添加标题 阿黛尔再唱《someonelikeyou》,这首歌是哪代人的青春记忆? 如何用R语言绘制散点图(数据分组展示)并同时添加全数据的线性和指数两条拟合线? 被称为“唱哭全世界”的歌,是阿黛尔发布的哪首歌曲? 阿黛尔的这首歌,名字是啥?歌词如下: 如何自定义ggplot2中各组数据输出的次序 求阿黛尔与mj各最好听的15首歌! 声音嘶哑恢复后~不过唱歌却像嘶哑一样唱不出来? 阿黛尔的那首经典歌曲名字是什么 推荐一家服务服务比较好的猫狗等宠物遗体火化? 请问这样的图用R语言ggplot2能够实现吗?代码应该怎么写? ggplot2添加地理分界线 成都哪里有正规宠物火化服务的? ggplot2怎么把数据扩大 成都哪里有宠物火化? R中的ggplot2绘图怎么画图??? 安装ggplot2之后,怎样才能不用每次重启R之后再用library加载 在哪里可以找到很详细的小动物宠物猫狗殡葬火化纪念商家及服务信息? 小猫小狗等宠物遗体火化谁口碑最好的机构,可以分享下吗? 哪个机构的猫狗等宠物遗体火化比较好? 北京小猫小狗或宠物火化殡葬哪个品牌的服务好? 北京有几家宠物火化安葬,宠物陵园? 宠物殡仪馆的介绍 写一篇以My Dream为话题的作文,以高中生的梦想,各位大神赶快,我给满意,,, 在成都哪里有正规的宠物火化中心? 白公鹅是什么国家的作者写的 天津宠物火化 我的梦想英语作文高中生600字 豹子是什么颜色的