Как назначить уникальный график и заголовок для графа с тем же именем переменной в цикле for?

Question

Это мой первый пост, поэтому, пожалуйста, будьте милы! Я пишу программу, которая извлекает данные из базы данных и выводит серию графиков. Я хочу написать цикл for, который отображает каждую переменную и дает каждому графику уникальный заголовок и метку оси Y.

Я попытался добавить то, что я хочу использовать в качестве метки оси Y для каждой переменной после запятой в качестве имени, а затем с помощью str_extract вытянуть часть строки после запятой, чтобы использовать в качестве метки оси Y .

library(tidyverse)

df <- #my data set#

variables <- list(
  'Graph 1 Title, Y-axis Label' = 'var1'
  'Graph 2 Title, Y-axis Label' = 'var2'
  'Graph 3 Title, Y-axis Label' = 'var3'

for (i in seq_along(variables)) {

  temp_title <- paste(names(variables)[i])

  f <- ggplot(df[ (df$variable == variables[i]), ]) +
         geom_line(aes(x = xvar, y = yvar)) +
         labs(title = temp_title, y = #This is what I can't figure out#)

  print(f)

}

Я пытаюсь сделать str_extract как:

temp_ylabs <- paste(names(str_extract(variables)[i], '[^,]+$'))

для извлечения части строки имени после запятой, но безрезультатно. Спасибо за вашу помощь!