如何在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,")"))) +