Rの複数のプロット凡例に度記号を追加するには？

Question

expressionを使ってプロットの凡例に度記号を追加することができます。

plot(1:5,1:5) 
legend('topleft', fill = 'white', legend = expression(5~degree~C)) 

しかしどのように私は複数凡例エントリのためにこれを行うことができますか？

は、私は次のことを試してみましたが、それはうまくいきませんでした：

plot(1:5,1:5) 
points(1:5,(1:5) + 0.1, col = 2) 
legend('topleft', fill = c('white','red'), legend = paste0(c(5,10), expression(~degree~C))) 

編集：私は多く値のためにこれを行う方法で、より興味がありますだけでなく、 2.

これを簡潔かつきれいに行う方法についてのご意見をお待ちしております。ありがとう！

Answer 1

あなたは私はあなたがsubstituteとexpressionの助けが必要だと思う表現

legend('topleft', fill = c('white','red'), expression(5~degree~C,10~degree~C)) 

Answer 2

で両方の値を含めることができます。あなたはサプリーの入力としてc(5,10)を入れています、ここで表現を書く必要があるベクトルのサプリをします。関数の部分では、as.expressionとsubstituteを使う必要があります。

plot(1:5,1:5) 
points(1:5,(1:5) + 0.1, col = 2) 
legend('topleft', fill = c('white','red'), legend = sapply(c(5,10), function(x) as.expression(substitute(A~degree~"C",list(A = as.name(x)))))) 

出力：