Как я могу вводить переменные как часть ggtitle для графика внутри lapply в R?

Question

У меня есть функция lapply, которая применяет мою функцию построения графика к каждому элементу в списке qList (каждый элемент представляет собой таблицу данных). Каждый элемент также уже является названием болезни.

volcanoList <- lapply(unique(qList),
                  function(x) volcanoGraph(x))

Функция volcanoGraph - это следующая стандартная функция ggplot:

volcanoGraph <- function(dataSetOrdered) {
ggplot(dataSetOrdered) +
    geom_point(aes(x=MeanDiff, y=-log10(qColumn), colour=threshold)) +
    geom_text_repel(aes(x = MeanDiff, y = -log10(qColumn), label= 
    ifelse(geneLabels %in% 1:10 == T | minDiff %in% 1:10 == T | maxDiff %in% 
    1:10 == T, geneMutCount,""))) +
    xlab("WT - Mutation Mean Difference") + 
    ylab("-log10 adjusted q-value") +
    #scale_y_continuous(limits = c(0,50)) +
    theme(legend.position = "none",
          plot.title = element_text(size = rel(1.5), hjust = 0.5),
          axis.title = element_text(size = rel(1.25)))
}

На данный момент к ней не привязан ggtitle, так как я не знаю, как сделать заголовки для каждого элемента на основе соответствующего заболевания (на основе имени элемента). В качестве ожидаемого результата я хотел пометить заголовок каждого графика следующим образом: «График (вставьте сюда имя элемента)».