如何用ggpairs获得R ^ 2？
。
如何ggpairs用R ^ 2而不是相关性使报表上角？
library(GGally)
ggpairs(mtcars[c("mpg", "disp", "hp", "drat", "wt", "qsec")])
用户名
我认为您将需要编写一个自定义函数，如下所示。（对此方法的一个警告是，与相关性不同，r ^ 2假定因变量，因此这可能不明智）。
library(GGally) # version 1.5.0
lm_fun <- function(data, mapping, ndp=2, ...){
# Extract the relevant columns as data
x <- eval_data_col(data, mapping$x)
y <- eval_data_col(data, mapping$y)
# Calculate the r^2 & format output
m <- summary(lm(y ~ x))
lbl <- paste("r^2: ", formatC(m$r.squared, digits=ndp, format="f"))
# Write out label which is centered at x&y position
ggplot(data=data, mapping=mapping) +
annotate("text", x=mean(x, na.rm=TRUE), y=mean(y, na.rm=TRUE), label=lbl, parse=TRUE, ...)+
theme(panel.grid = element_blank())
}
# Call
ggpairs(mtcars[c("mpg", "disp", "hp", "drat", "wt", "qsec")],
upper=list(continuous=lm_fun))
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何用2列制作R图例？
- 2
如何用密度图覆盖线图？（R，ggplot2）
- 3
如何用 R^2 绘制大数据矩阵的相关图？
- 4
如何用包含2个小数点的数字获得更大的值
- 5
如何从sklearn GridSearchCV同时获得MSE和R2？
- 6
如何用ggplot2（R）绘制单个置信区间？
- 7
如何用R中的ggplot2绘制大小不等的数据？
- 8
如何用JUNG2画直线？
- 9
如何用1），2）分割文本？
- 10
如何用变形2制作水平形式？
- 11
如何用JUNG2画直线？
- 12
如何用2个参数编写委托
- 13
如何获得emesene 2的插件？
- 14
如何获得con [] = 2的值？
- 15
如何从MATLAB中的LASSO拟合中获得确定系数（R ^ 2）？
- 16
如何在R中获得一个大的稀疏矩阵？（> 2 ^ 31-1）
- 17
如何使用SQL查询在SQL SERVER 2008 R2中获得表定义？
- 18
如何获得鲁棒混合效应模型的R ^ 2（rlmer命令； robustlmm）？
- 19
R：如何获得2个向量的唯一成对组合
- 20
R：如何获得2个向量的唯一成对组合
- 21
如何获得2列的不同计数值？
- 22
如何获得Ubuntu的deb2pet？
- 23
如何获得2到12 rolldie的总和？
- 24
如何获得前2个字？
- 25
如何获得2次之间的差额？
- 26
如何获得2 x 1 UI对齐
- 27
Yii2：如何获得$ this的属性？
- 28
Yii2：如何获得$ this的属性？
- 29
如何获得Ubuntu的deb2pet？
我来说两句