使用正确的列名称在多个上创建 qqnorm 图

Question

我做了这个 for 循环来为所有指定的列创建 qqnorms。但是它不能正确输出名称。我需要列名称与正确的绘图对齐。

par(mfrow = c(3,2))
loop.vector <- 3:7 # designate columns for qqnorms
colName <- names(Final_data[loop.vector]) # gets column name
for (i in loop.vector) {
    x <- Final_data[, i]
    qqnorm(x, main = paste(colName))
}

输出：

这就是我需要的：

Answer 1

您的循环中有一个拼写错误。可能更容易使用

par(mfrow = c(3, 2))
lapply(names(mtcars)[3:7], \(i) qqnorm(mtcars[[i]], main = i))

我们使用

mtcars

作为玩具数据。