我有一个数值向量，比如说：
angles <- c(10.2, 20.3, 14.3, 18.4)
我想在每个元素的末尾附加度数符号，以获得：
labels <- c("10.2°", "20.3°", "14.3°", "18.4°")
我尝试使用bquote（）函数但没有成功：
labels <- bquote(paste(.(angles) * degree))
答案 0 :(得分：6)
如果您的键盘没有提供度数符号°，则可以使用UTF8 code获取该字符，在这种情况下为176：
paste0(angles,intToUtf8(176))
#[1] "10.2°" "20.3°" "14.3°" "18.4°"
通过使用UTF8代码，可以像这样粘贴任何字符。 希望这会有所帮助。
答案 1 :(得分：2)
如果您想在地块上使用标签，那么这样的代码就可以了
angles <- c(10.2, 20.3, 14.3, 18.4)
labels <-sapply(angles, function(a)bquote(.(a) * degree))
plot(1:4, 1:4)
mapply(text, labels = labels, x = 1:4, y = 1:4, pos = 4:1)