如何将表达式传递给 ggplot 中的 geom_text 标签？

Question

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

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))

这是结果图：

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

Answer 1

我建议采用这种方法。您可以为标签构建另一个变量，然后从 geom_text() 启用选项 parse=T 以获得所需的图。这里的代码：

library(ggplot2)
library(tidyverse)
#Data
my_exp <- as.character(expression('my_exp'[s][u][b]))

my_data <- 
  data.frame(
    var_1 = c("a", "b", "c"),
    var_2 = c(1, 2, 3),stringsAsFactors = F
  )
#Mutate
my_data$label <- ifelse(my_data$var_1=='a',my_exp,my_data$var_1)
#Plot
my_data %>%
  ggplot(aes(x = var_1, y = var_2))+
  geom_text(aes(label = label),parse = T)

输出：

更新： 如果标签有问题，请提供代码：

#Label
my_exp <- "14~M~my_exp[s][u][b]"
#Code
my_data <- 
  data.frame(
    var_1 = c("a", "b", "c"),
    var_2 = c(1, 2, 3),stringsAsFactors = F
  )
#Mutate
my_data$label <- ifelse(my_data$var_1=='a',my_exp,my_data$var_1)
#Plot
my_data %>%
  ggplot(aes(x = var_1, y = var_2))+
  geom_text(aes(label = label),parse = T)

输出：

如何将表达式传递给 ggplot 中的 geom_text 标签？

How to pass an expression to a geom_text label in ggplot?

expression

r

subscript

ggplot2

geom-text