小编Reb*_*ray的帖子

我试图将带有下标的表达式传递给geom_text()中的单个标签ggplot。这是我现在的代码：

my_exp <- expression('my_exp'[s][u][b])

my_data <- 
  data.frame(
    var_1 = c("a", "b", "c"),
    var_2 = c(1, 2, 3)
  )

my_data %>%
  ggplot(aes(x = var_1, y = var_2))+
  geom_text(aes(label = var_1))

这是结果图：

我想做的是将 的var_1值替换"a"为 由 指定的表达式my_exp，然后geom_text()将该值作为表达式求值，从而导致下标出现在 ggplot 上。