如何在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的幫助。 你需要寫一個表達式的向量，這里我把c(5,10)作為sapply的輸入。 對於函數部分，您需要使用as.expression和替換。

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))))))

輸出 ：

Answer 2

您可以在表達式中包含這兩個值

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

Answer 3

對於ggplot：

ylab(expression(paste("SST (",degree~C,")"))) +