Индекс и обращение к сохраненному значению ...
a <- 10 plot(c(0,1), c(0,1), type = 'n', ann = FALSE, xaxt = 'n', yaxt = 'n') text(0.2, 0.6, cex = 1.5, bquote(paste('S'['f']*' = ', .(a))))