如何在for循环中为来自相同变量名称的图形分配唯一的ylab和标题？

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], '[^,]+$'))

提取名称字符串的逗号后部分，但无济于事。感谢您的帮助！