Question

我是R的新手，需要根据他们的人口来创建一堆直方图。当我尝试运行没有“名称”部分的循环时，它工作正常。下面的代码循环遍历名称列表并按顺序应用它们，但我最终得到了相同精确直方图的3,364个版本。如果有人有任何建议，我真的很感激。

popFiles <- list.files(pattern = "*.txt") # generates a list of the files I'm working with
popTables <- lapply(popFiles, read.table, header=TRUE, na.strings="NA")
popNames <- read.table(file.path("Path to file containing names", "popNamesR.txt"), header=FALSE,)
popNames <- as.matrix(popNames)

name <- NULL
table <- c(1:58)

for (table in popTables){
   for (name in popNames){
       pVals <- table$p
       hist(pVals, breaks=20, xlab="P-val", main=name))
   }
}

Answer 1

尝试创建一个独特的迭代器，并使用它，而不是迭代表列表本身。它更容易看到发生了什么。例如：

pdf("Myhistograms.pdf")    
for(i in 1:length(popTables)){
    table = popTables[[i]]
    name = popNames[i]
    pVals = table$p
    hist(pVals, breaks=20, xlab="P-val", main=name))
}
dev.off()

在这种情况下，您的问题是名称和表实际上是链接的，但是您有两个for循环，因此实际上生成了表和名称的每个组合。

嵌套for循环以创建根据列表命名的直方图

1 个答案: