爲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下使用變量和下標是不可能的。等待主手的答案！