R sapply X軸、グラフに名前

Question

私は私がX軸としてプロット内の列の名前を印刷することができますどのようにR

nums <- sapply(db, is.numeric) 
sapply(db[,nums], function(x) { 
    nome <- as.character(names(x)) 
    hist(x) 
    lines(density(x, na.rm = T)) 

    }) 

にいくつかの探索的分析を取得するには、この機能を使用していますか？ 私はapply over matrix by column - any way to get column name?と試みたが、私はそれが

Answer 1

一つの方法は、列名をループになり、この場合に動作させるための関数の第二の部分を把握することはできません。

nums <- sapply(db, is.numeric) 
numsNames <- names(db)[nums] 

sapply(numsNames, function(x) { 
    hist(db[,x], xlab=x) 
    lines(density(db[,x], na.rm = T)) 
}) 

Answer 2

ますまた

num <- sapply(iris, is.numeric) 
opar <- par(mfrow = c(2,2)) 
histDensity <- function(x, ...){ 
    hist(x = x, freq = FALSE, ...) 
    lines(density(x, na.rm = TRUE)) 
} 
mapply(histDensity, x = iris[, num], main = names(iris[, num])) 
par(opar) 

をHISTするためのデータや他の引数を取るようにmapply使用することができ、あなたは

library(reshape2) 
library(ggplot2) 
iris2 <- melt(iris) 
ggplot(iris2, aes(x = value, y = ..density..)) + 
    geom_histogram() + 
    geom_density() + 
    facet_wrap(~variable) 

をggplot使用することができます