मैंने इसे कैसे करना है इसके लिए बहुत कुछ खोजा और कुछ भी प्रासंगिक नहीं मिला।

मैं फॉर-लूप के अंदर अपने डेटासेट में प्रत्येक चर के लिए एक अलग बॉक्सप्लॉट प्लॉट करने का प्रयास कर रहा हूं। मैंने निम्नलिखित की कोशिश की:

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

हालांकि, यह वह नहीं कर रहा है जो मैं चाहता हूं। मैं इस तक कैसे पहुंच सकता हूं

-2
Jan 13 मार्च 2020, 13:15

1 उत्तर

सबसे बढ़िया उत्तर

हम डेटाफ्रेम के सभी संख्यात्मक कॉलम प्राप्त कर सकते हैं, प्रत्येक पर लूप करने के लिए lapply का उपयोग कर सकते हैं और भूखंडों की एक सूची बना सकते हैं।

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

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

enter image description here


इसे for लूप में करने के लिए हम यह कर सकते हैं:

list_diag <- vector("list", length(cols))
for (i in seq_along(cols)) {
  list_diag[[i]] <- bwplot(reformulate(cols[i]), data = iris, main = cols[i])
 }
0
Ronak Shah 13 मार्च 2020, 10:40