r - Lm 跨越 R 中数据框中的许多列

Question

我有一个包含许多数字列的数据框，第一列需要针对第二列进行回归，然后存储 Rsqr 值，然后第一列针对第三列，然后存储 Rsqr 值...等等.这样做直到第 n 列回归到第 1 列。

我希望结果是一个数据框，其中包含回归的 colnames 的 Rsqr 值。

即

tested              rqr
col1 v col2         0.56
col1 v col3         0.28
col1 v col4         0.38

我知道我还没有提供数据 - 我正在寻找方法。我一直在使用在 forloop 中调用的 lm 函数来执行此操作，但它需要很长时间。我想知道是否有适用的解决方案。

保罗

Answer 1

如果只想要R²，则不需要拟合线性模型，只需计算 PIL 逊相关系数即可。这将为您提供所有列组合之间的相关性:

cor(yourDataFrame)^2

这是与第一列相关的示例:

set.seed(42)
df<-as.data.frame(matrix(rnorm(100), ncol = 4)) 
cor(df, df[,1])^2
#          [,1]
#V1 1.000000000
#V2 0.006508638
#V3 0.110714099
#V4 0.006231468