为R图的多个图例使用下标和变量

Question

我的目标是在我的图例中有多行看起来像这种格式的Nsubscript（M），Nsubscript（F）。下标将用于使我的传说速记。将会有变量需要评估以获取数值。如何用下标和变量制作多行图例？

我需要得到多个bquotes才能工作。下面的格式是我想要的图例部分。

#this works 
N_male<-4#random variable 
N_female<-6#random variable 
plot(x=2,y=3)#random plot 
legend("topright",legend=bquote('N'['F']*' = '*.(N_female)), 
text.col="black",box.col=0, bty="n", cex = .75, lty= c(2)) #this legend has 
#correct syntax 

但是我需要让多个bquotes在同一个图例中工作。我怎么做？

#this does not work 
N_male<-4#random variable 
N_female<-6#random variable 

plot(x=2,y=3) 
legend("topright",legend=c(bquote('N'['M']*' = '*.(N_male)), 
bquote('N'['M']*' = '*.(N_female))), 
text.col="black",box.col=0, bty="n", cex = .75, lty= c(1,2)) #this legend does not evaluate the bquote part 

Answer 1

您需要在c调用中使用as.expression和bquote。

my.expressions <-c(as.expression(bquote('N'['F']*' = '*.(N_female))),as.expression(bquote('N'['M']*' = '*.(N_male)))) 

N_male<-4#random variable 
N_female<-6#random variable 
plot(x=2,y=3)#random plot 
legend("topright",legend=my.expressions, 
text.col="black",box.col=0, bty="n", cex = .75, lty= c(2:3)) 

Answer 2

This works。

plot(x=2,y=3) 
legend("topright",legend=c(expression(paste('N'[M], ' = ', 4)), 
          expression(paste('N'[F], ' = ', 6))), 
     text.col="black",box.col=0, bty="n", cex = .75, lty= c(1,2)) 

我测试了其他方法。看起来在lengend下使用变量和下标是不可能的。等待主手的答案！