Объединение функций paste () и expression () в метках графиков

Рассмотрим этот простой пример:

labNames <- c('xLab','yLabl')
plot(c(1:10),xlab=expression(paste(labName[1], x^2)),ylab=expression(paste(labName[2], y^2)))

Я хочу, чтобы ввод символа определялся переменной 'labName, 'xLab' или 'yLab', чтобы появиться рядом с X ^ 2 или y ^ 2, определенными выражением (). Фактический текст labName с нижним индексом присоединяется к выражению с верхним индексом.

Есть какие-нибудь мысли?