プロット内のlapply関数内の要素の名前にアクセスする方法

Question

私のデータフレーム内のすべての変数に対してボックスプロットを生成したいと思います。しかし、問題は、lapply経由でループしている変数名でx軸にラベルを付けることができないということです。何かご意見は。ボックスプロットのための

df=data.frame(a=rnorm(100), b=rnorm(100), c=rnorm(100), d=rep(1:2,50)) # data 
df$d=as.factor(df$d) 

機能

Boxplotfun=function(x,i){ 
    if(is.numeric(x)) { 
    p <- ggplot(df, aes(d, x, group=d)) + geom_boxplot(outlier.colour = "red", fill = c("gold","darkgreen")) + coord_flip() + theme_light() + ggtitle(paste(names(x))) 
    plot(p) 
    } 
} 

l=lapply(df[-ncol(df)], Boxplotfun) 

Answer 1

だけ答えにリチャードさんのコメントを作るために：

df <- data.frame(a=rnorm(100), b=rnorm(100), c=rnorm(100), d=rep(1:2,50)) # data 
df$d <- as.factor(df$d) 

df2 <- tidyr::gather(df, 'var', 'val', -d) 
ggplot(df2, aes(d, val, fill = d)) + 
    geom_boxplot(outlier.colour = "red") + 
    scale_fill_manual(values = c("gold","darkgreen")) + 
    coord_flip() + 
    theme_light() + 
    facet_grid(var~.) 

代わりに、最初の引数がlapplyするとしてデータフレームを使用しての

Answer 2

、データフレームの名前を直接使用して、自分のデータを参照することができますあなたのプロット関数の内側にある。

代わりにAESを使用しての私は、「X」の内側とggplot私は変数xのためではなく、名前が「X」

Boxplotfun=function(x) { 
    if(is.numeric(df[, x])) { 
    p <- ggplot(df, aes_string("d", x, group="d")) + 
     geom_boxplot(outlier.colour = "red", fill = c("gold","darkgreen")) + 
     coord_flip() + theme_light() + 
     ggtitle(x) 
    plot(p) 
    } 
} 

ll <- lapply(names(df[-ncol(df)]), Boxplotfun) 

を参照する変数を捜しているわけではないことを理解して渡すことができるように、私はaes_stringをも使用しています

編集： 凡例を表示したい場合はAxemanの答えが示されているように、あなたは、すべきで、あなたのAESの内側に記入し、色を選択するscale_fill_manualを使用して指定します。

Boxplotfun=function(x) { 
    if(is.numeric(df[, x])) { 
    p <- ggplot(df, aes_string("d", x, fill="d")) + 
     geom_boxplot(outlier.colour = "red")+ 
     scale_fill_manual(values = c("gold","darkgreen")) + 
     coord_flip() + theme_light() + 
     ggtitle(x) 
    plot(p) 
    } 
}