我想对很多数据帧进行相关性分析-Iwanttodocorrelationformanydataframe

1  

If 'd1', 'd2', ...'d13' are the datasets and the columns are the in the same order, we can place the dataset in a list and get the cor for the specified columns. There are options in ?cor to compute the covariances in the presence of missing values. Here, I used na.or.complete. We can change it according to the need.

如果d1,d2,……“d13”是数据集，列是相同的顺序，我们可以将数据集放在一个列表中，并得到指定列的cor。在?cor中有一些选项可以在存在缺失值的情况下计算协方差。在这里,我使用na.or.complete。我们可以根据需要修改。

lapply(mget(paste0('d', 1:13)), function(x) 
      diag(cor(x[,6:8], x[,20:22], use='na.or.complete'))) 

It may be better to read the files into a list directly than creating individual data.frame objects in the global environment. Assuming that the files are all in the working directory.

直接将文件读入列表可能比在全局环境中创建单独的data.frame对象要好。假设文件都在工作目录中。

files <- list.files(pattern='file\\d+.txt')#change the pattern as needed
lapply(files, function(x) {
                x1 <- read.table(x, header=TRUE)
                diag(cor(x1[,6:8], x1[,20:22], use = 'na.or.complete'))}) 

0  

Here's a brute force version (with data generation included), it'll probably work for your purpose, a little more information about the structure of your data/task could help make this more efficient:

这里有一个蛮力版本(包含数据生成)，它可能适合您的目的，更多关于您的数据/任务结构的信息可能有助于提高效率:

N <- 10
k <- 50

d <- data.frame(matrix(runif(N * k), ncol = k))

sapply(20:k, function(col) cor(d[,col - 14], d[,col]))

Edit: Question has been edited, I'm not sure if this is actually what you're after now.

编辑:问题被编辑过了，我不确定这是不是你现在想要的。