如何在ggplot带解析的注释标签中同时添加空格与上标？

当使用parse = TRUE时，R的表达式解析器会把空格视为语法分隔符，直接写带空格的文本会触发语法错误。以下是几种可行的解决方法：

方法1：用paste()在表达式中拼接文本 #

将带空格的文本用引号包裹，通过paste()和上标部分拼接，解析器会正确识别引号内的空格：

library(tidyverse)

df <- tibble(x = c(1:10), y = c(1:10))

ggplot(data = df, aes(x = x, y = y)) +
  geom_point() +
  annotate(geom = "text", x = -Inf, y = Inf, hjust = -1, vjust = 1.1,
           label = 'paste("Some words and ", a^2)', parse = TRUE) 

方法2：用expression()或bquote()定义表达式 #

在expression()中，可通过波浪线~表示空格，也可以直接将带空格的文本放在引号内：

# 用波浪线替代空格
ggplot(data = df, aes(x = x, y = y)) +
  geom_point() +
  annotate(geom = "text", x = -Inf, y = Inf, hjust = -1, vjust = 1.1,
           label = expression(Some~words~and~a^2), parse = TRUE) 

# 直接用引号包裹带空格的文本
ggplot(data = df, aes(x = x, y = y)) +
  geom_point() +
  annotate(geom = "text", x = -Inf, y = Inf, hjust = -1, vjust = 1.1,
           label = expression("Some words and " ~ a^2), parse = TRUE) 

如果需要插入动态变量值，推荐用bquote()：

my_var <- "custom"
ggplot(data = df, aes(x = x, y = y)) +
  geom_point() +
  annotate(geom = "text", x = -Inf, y = Inf, hjust = -1, vjust = 1.1,
           label = bquote(.(my_var)~words~and~a^2), parse = TRUE) 

方法3：使用Unicode上标字符（无需解析） #

如果上标是简单的数字或符号，可直接用Unicode上标字符，无需开启parse = TRUE：

ggplot(data = df, aes(x = x, y = y)) +
  geom_point() +
  annotate(geom = "text", x = -Inf, y = Inf, hjust = -1, vjust = 1.1,
           label = "Some words and a²") 

内容的提问来源于stack exchange，提问作者jsgraydon