Легенда с использованием bquote вместе с векторной переменной

Question

Я хочу построить легенду с цитатой, содержащей 4 строки (каппа = 0,5, каппа = 1, каппа = 1,5, каппа = 5).

Например,

kappa_var <- c(0.5, 1.0, 1.5, 5.0)

plot(1000, type="n", xlab="x", ylab= expression(paste("f(x;",kappa,",",sigma,")",sep="")), 
     xlim=c(0, 5), ylim=c(0, 6))

legend("topleft",legend=do.call( 'expression', list( bquote( kappa == .(kappa_var)))))

Однако я могу управлять только тем, что bquote выражает первую запись kappa_var, а не все из них

Answer 1

Попробуйте создать вектор выражений с as.expression из списка bquote меток:

legend("topleft", legend = as.expression(sapply(kappa_var, function(var) bquote(kappa == .(var)))))