循环遍历 R 中的列表

Question

如果列表的每个数据框，我想做一个操作。我想对每个数据框中的一列执行 Kolmogorov–Smirnov (KS) 检验。我正在使用下面的代码，但它不起作用：

PDF_mean <- matrix(nrow = length(siteNumber), ncol = 4)
PDF_mean <- data.frame(PDF_mean)
names(PDF_mean) <- c("station","normal","gamma","gev")


listDF <- mget(ls(pattern="DSF_moments_"))
length(listDF)
i <- 1

for (i in length(listDF)) {

PDF_mean$station[i] <- siteNumber[i]
PDF_mean$normal[i] <- ks.test(list[i]$mean,"pnorm")$p.value
PDF_mean$gev[i] <- ks.test(list[i]$mean,"pgev")$p.value
PDF_mean$gamma[i] <- ks.test(list[i]$mean,"gamma")$p.value

}

有什么帮助吗？

Answer 1

它不是length(listDF)，而是seq_along(listDF) 或1:length(listDF)（不过，它更适合seq_along），因为length 是一个单一的值，它没有做任何循环

for(i in seq_along(listDF)) {

  PDF_mean$station[i] <- listDF[[i]]$siteNumber
  PDF_mean$normal[i] <- ks.test(listDF[[i]]$mean,"pnorm")$p.value
  PDF_mean$gev[i] <- ks.test(listDF[[i]]$mean,"pgev")$p.value
  PDF_mean$gamma[i] <- ks.test(listDF[[i]]$mean,"gamma")$p.value
 }