r - 如何将度数符号添加到 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))))))

输出 :