複数の x 変数に対して 1 つの y 変数のプロットを作成しています。私はlapplyを使用した実用的なソリューションを持っています。ただし、各プロットの x ラベルとして x 変数の名前を書き込むことはできません。私が持っているものの簡単な例を次に示します。
目標は、各 x 変数に対して y 変数をプロットして 3 つのプロットを作成し、各 x 変数の名前を x 軸ラベルとして追加することです。
1 つの y 変数と 3 つの x 変数を持つデータフレームを生成します。
df <- data.frame(y.variable=c(11:20), x1=c(21:30),x2=c(1:10),x3=c(31:40))
変数名を文字列として取得する関数:
get_name <- function(v1) {deparse(substitute(v1))}
x 変数に対する y のプロットを生成する関数:
generate_plot <- function(x.variable) {ggplot(data = df, aes(x.variable, y.variable )) +geom_point() + xlab(get_name(variable.name))}
df の各列で generate_plot を実行するための lapply の呼び出し:
lapply(df, generate_plot)
これにより、目的の変数名 x1、x2、および x3 の代わりに、それぞれの x ラベルとして「variable.x」を持つ 3 つのプロットが生成されます。