Построение отдельного боксплота для каждой переменной в R

Question

Я много искал, как это сделать, и не смог найти ничего подходящего.

Я пытаюсь построить отдельный блок-график для каждой переменной в моем наборе данных внутри for-l oop. Я попробовал следующее:

for (column in names(articles)){
  if(is.numeric(articles[, column])) {
    bwplot(~column ,data = articles,main= paste(column))
  }
}

Однако, это не производит то, что я хочу. Как я могу подойти к этому

Answer 1

Мы можем получить все числовые столбцы c кадра данных, используя от lapply до l oop для каждого и создать список графиков.

cols <- names(iris)[sapply(iris, is.numeric)]

list_diag <- lapply(cols, function(x) 
                    bwplot(reformulate(x), data = iris, main = x))
list_diag[[1]]

---

Для этого в for l oop мы можем сделать:

list_diag <- vector("list", length(cols))
for (i in seq_along(cols)) {
  list_diag[[i]] <- bwplot(reformulate(cols[i]), data = iris, main = cols[i])
 }