在geom_bar上解析离散轴值中的上标

Question

我正试图在某些x轴值上添加上标，以便连接到页面底部的脚注。一个简单的解决方法只是一个星号而不是^a，但这对我来说不起作用。

我进行了大量搜索，尽管有很多关于轴标签上标的文章，但我找不到关于轴值上标的任何文章。他们中的大多数人似乎都集中了gg + labs(x = expression("blah^a"))。

我确实找到了this条关于在geom_text()内解析上标的帖子，但是对于geom_bar()来说似乎没有作用。

以下是一些测试数据：

library(ggplot2)

dat <- data.frame(x = c("alpha", "bravo^a"),
                  y = c(10, 8))

ggplot(data = dat) +
  geom_bar(aes(x = x, 
               y = y),
           stat = "identity")

Answer 1

您只需要在parse内scale_x_discrete

编辑：添加geom_text示例

library(ggplot2)

dat <- data.frame(x = c("alpha", "bravo^a"),
                  y = c(10, 8))

ggplot(data = dat) +
  geom_bar(aes(x = x, 
               y = y),
           stat = "identity") +
  scale_x_discrete(labels = parse(text = levels(dat$x))) +
  geom_text(aes(x = x, y = y,
                label = x), 
            parse = TRUE, 
            nudge_y = 1,
            size = 5) +
  theme_minimal(base_size = 14)

由reprex package（v0.2.0.9000）创建于2018-08-27。