аю графики одной переменной y против нескольких переменных x. У меня есть рабочее решение, использующее lapply. Однако мне не удается записать имя переменной x в качестве метки x для каждого графика. Вот упрощенный пример того, что у меня есть:

Цель состоит в том, чтобы отобразить переменную y для каждой переменной x, в результате чего получится три графика и добавится имя каждой переменной x в качестве метки оси x.

Создайте фрейм данных с одной переменной y и тремя переменными 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))}

Функция, которая генерирует график y относительно переменной x:

generate_plot <- function(x.variable) {ggplot(data = df, aes(x.variable, y.variable )) +geom_point()  + xlab(get_name(variable.name))}

Вызов lapply для выполнения generate_plot для каждого столбца df:

lapply(df, generate_plot)

Это приводит к трем графикам, каждый из которых имеет «variable.x» в качестве своей x-метки вместо желаемого имени переменной x1, x2 и x3.