如何在ggplot2图例中制作上标表达式

Question

出于某种原因，我尝试用于图例的表达式没有创建上标（使用ggplot2）。有人可以指导我哪里出错了吗？我需要两条线，因为我想最大化我的绘图面积。

可重现的示例（尽管不在 ggplot2 中）：

plot(1:1, main=expression(paste('Mean driving\nspeed (km h^-1)')))

非常感谢你

Answer 1

使用

expression()

和 ggtext 的等效 ggplot 以及上标（在标题、副标题和图例中）：

library(tidyverse)
library(ggtext)

df <- tibble(x = 1, y = 1)

df |>
  ggplot(aes(x, y, colour = x)) +
  geom_point() +
  labs(
    title = "Mean driving<br>speed (km h<sup>-1</sup>)",
    subtitle = expression(paste("km", h^-1)),
    colour = "km h<sup>-1</sup>"
  ) +
  theme(
    plot.title = element_markdown(),
    legend.title = element_markdown()
  )

^{创建于 2024-04-11，使用 reprex v2.1.0}