Заголовки в R, используя sapply()

Question

Я хочу сделать qqnorm-график из каждой переменной в моем кадре данных, используя sapply(). Это то, что я получил до сих пор:

myfun=function(x) { 
    c(qqnorm(x), 
    qqline(x) 
) 
} 

sapply(mydata, myfun) 

Это работает, однако, я хотел бы, чтобы каждый участок, чтобы иметь соответствующее имя переменной в названии сюжета. Как это делается?

Thanx много ;-)

Answer 1

В этом случае l_ply более подходит, потому что вам просто нужно построить график, и поэтому выход не требуется. На основании @Henrik ответа мы имеем

require(plyr) 
myfun <- function(x, data, ...) { 
    c(qqnorm(data[[x]], main = names(data)[x], ...), 
    qqline(data[[x]]) 
) 
} 

l_ply(seq_len(ncol(swiss)), myfun, data = swiss) 

EDIT

Если вы хотите увидеть свои графики, у вас есть много вариантов, и один из них, чтобы разделить вас черчением устройства и сюжетом каждый qqplot в одной части устройства.

par(mfrow = c(3, 2)) 
l_ply(seq_len(ncol(swiss)), myfun, data = swiss) 

Answer 2

Проблема в том, что когда вы делаете это, как что names не передаются в функцию, но только безымянный элемент списка. Вам нужно немного изменить функцию и просто рукой по индексу, а затем работать на весь объект (т.е., неявно делает для цикла и с использованием итератора):

data(swiss) 

myfun=function(x, data) { 
    c(qqnorm(data[[x]], main = colnames(data)[x]), 
    qqline(data[[x]]) 
) 
} 

lapply(1:ncol(swiss), myfun, data = swiss) 

Кроме того, я изменил функцию lapply и используйте в качестве примера набор данных swiss.

Answer 3

Вот for цикл, который является имхо наиболее подходящей конструкции петли для этого.

for (i in seq_along(swiss)) { 
    qqnorm(swiss[,i], main = names(swiss)[i]) 
    qqline(swiss[,i]) 
    Sys.sleep(3) #to see something and avoid problems in RStudio 
}