在 ggplot2 中使用 Unicode 字符（加减号）

Question

我正在尝试构建一个包含 unicode 字符的图（加减号U +00B1）

以下是一些虚假数据：

library(tidyverse)
set.seed(1)
df <- crossing(
  Rated_Movement = c("Running", "Jumping"),
  Rater = c("John Snow", "Batman", "Hulk")) %>% 
  mutate(
    Error = runif(n = 6, min = 0, max=2))

这是到目前为止我的情节代码：

ggplot(df, aes(x = Rated_Movement, y = Rater, fill = Error)) + 
  geom_tile(color = "black", size = 0.5, alpha = 0.8)+
  geom_text(aes(label = paste("+-", round(Error,2))))+
  scale_fill_gradientn(colours = terrain.colors(10))+
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())

这是情节：

有没有办法可以将 +- 更改为 unicode 字符 U+00B1

我尝试使用反斜杠来转义：paste("\U+00B1", round(Error,2)) 但出现错误：“错误：'\U' 在以“”\U”开头的字符串中没有使用十六进制数字”

任何帮助都感激不尽。此致

Answer 1

这里有两种方法：

\n\n

ggplot(df, aes(x = Rated_Movement, y = Rater, fill = Error)) + \n  geom_tile(color = "black", size = 0.5, alpha = 0.8)+\n  geom_text(aes(label = paste("\xc2\xb1", round(Error,2))))+\n  scale_fill_gradientn(colours = terrain.colors(10))+\n  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())\n\nggplot(df, aes(x = Rated_Movement, y = Rater, fill = Error)) + \n  geom_tile(color = "black", size = 0.5, alpha = 0.8)+\n  geom_text(aes(label = paste("\\u00B1", round(Error,2)))) +\n  scale_fill_gradientn(colours = terrain.colors(10))+\n  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank())\n

\n\n

\n