r - 保存“summary(lm)”的结果以在 PowerBi 中使用
问题描述
是否可以以 PowerBI 中可用的格式保存摘要(lm)对象?
让我们说以下内容:
data <- mpg
lm <- lm(hwy ~ displ, data = mpg)
summary(lm)
输出:
Call:
lm(formula = hwy ~ displ, data = mpg)
Residuals:
Min 1Q Median 3Q Max
-7.1039 -2.1646 -0.2242 2.0589 15.0105
Coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 35.6977 0.7204 49.55 <2e-16 ***
displ -3.5306 0.1945 -18.15 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Residual standard error: 3.836 on 232 degrees of freedom
Multiple R-squared: 0.5868, Adjusted R-squared: 0.585
F-statistic: 329.5 on 1 and 232 DF, p-value: < 2.2e-16
我会将此信息保存为 gglpot2 对象或一般图片,我可以在 Power BI 中显示。这样我们就可以将其用作 Power BI 中快速回归的模板。这是因为 Power BI 只能显示导致“绘图”而不是文本的 R 代码。
我努力了:
textplot(capture.output(summary(lm)))
但我首先得到了这个错误:
>install.packages('textplot')
Warning in install.packages :
package ‘textplot’ is not available (for R version 3.5.3)
不幸的是,Power BI 不支持 textplot()。
编辑:澄清我不想绘制回归线或平面。我正在寻找一种方法来将“summary(lm)”的文本输出保存为可以在 Power BI 中显示的绘图对象。
解决方案
尝试这样的事情:
fit <- lm(hwy ~ displ, data = mpg)
txt = capture.output(print(summary(fit)))
plot(NULL,xlim=c(-1,1),ylim=c(-1,1),xaxt="n",yaxt="n",bty="n",xlab="",ylab="")
text(x=0,y=0,paste(txt,collapse="\n"))
您可能需要考虑使用 stringr::str_pad 使文本更漂亮.. 但这应该会给您一些有用的东西。
这就是你把它放在ggplot2上的方式:
ggplot() + xlim(c(-1,1)) + ylim(c(-1,1)) +
geom_text(aes(x=0,y=0,label=paste(txt,collapse="\n"))) +
theme_void()
推荐阅读
- java - 解码 DOMAIN_EVENT_ENTRY 中存在的有效负载
- postgresql - pg_basebackup 未在状态反馈中显示 100% 的备份
- c# - 如何使用 int.TryParse 验证用户输入以确保用户输入一个整数,但还要确保该数字在 1 到 4 之间
- javascript - 如何使用href为动态表创建链接
- python - Python Selenium,有没有办法单击单选按钮?我的代码在网站上不起作用
- laravel - Laravel 更新其他外键表中的状态
- javascript - 如何在 Material Table React 中动态渲染特定字段
- macos - 错误:EPERM:不允许操作,MacOS 上的 mkdir '/dev/dev-app'
- hadoop - 如何使用“S3a//”协议在 ECS S3 对象存储之上创建 Hive 外部表
- apache-kafka - Kafka Streams v0.10 是否支持多分区消费数据?