将上标添加到包含 / 和的轴刻度标签； 对于 ggplot2 object

Question

我正在尝试使用 scale_x_discrete(labels = ) 创建轴刻度标签以添加到 ggplot2 object。 我已经尝试使用 bquote 和表达式 function 作为上标，但是当我添加 / 和时，我不断收到错误消息说意外的符号； 标志到字符串中。 有谁知道解决这个问题的方法吗？ 我附上了一个我想要包含的刻度标签的示例。 如果您需要更多信息，请告诉我，谢谢。

Answer 1

如果您使用ggtext制定格式，则 ggtext 应该可以做到这一点：

library(ggplot2); library(ggtext)
mtcars2 <- mtcars
mtcars2$x = ifelse(mtcars2$gear == 5, "Cul3<sup>+/+</sup>;Ctrl", mtcars2$gear)
ggplot(mtcars2, aes(x, mpg)) +
  geom_point() +
  theme(axis.text.x = element_markdown(size = 18))

Answer 2

这是一种使用scale_x_discrete和expression with plotmath 的方法。

library(ggplot2)


ggplot(ToothGrowth, aes(supp, len)) +
  geom_bar(stat = "sum", show.legend = FALSE)+
  scale_x_discrete(breaks = c("OJ", "VC"),
                   labels = c(expression(Cul3^"+/+"*";Ctrl"), "Some other label"))+
  theme(axis.text.x = element_text(size = 18))

^{创建于 2022-10-04，使用reprex v2.0.2}