Как добавить подписки на ярлыки на boxplot, используя ggplot 2

Question

У меня проблемы с добавлением подписок моих категорий по оси x. Мой код выглядит так:

xlab("Treatment Combination") +
ylab("CS Activity (IU/gfw)") +
scale_x_discrete(labels = c("Control/Control" = "MControl à LControl",
                            "Hypoxic/Hypoxic" = "MHypoxia à LHypoxia"))+

Я пытаюсь изменить "MControl à LControl" на "M" в качестве нижнего индекса перед обычным "Control" и снова на "L" в качестве нижнего индекса перед обычным "Control".

На этом рисунке показаны метки категорий без подписи "M" и "L":

Любые идеи о том, как сделать эти подписался?

Заранее спасибо за помощь!

Answer 1

Вы можете сделать что-то подобное с функцией expression. Имейте в виду, что expression не будет проанализировано, если вы напишите expression([M]*"Control à LControl"). Вам всегда нужно что-то добавить перед нижними скобками. В вашем случае кусок кода должен быть expression(""[M]*"Control à "[L]*"Control"). См. Пример ниже:

library(ggplot2)

# Base example
iris %>% 
  as_tibble() %>% 
  ggplot(aes(x = Species, y = Sepal.Length)) +
  geom_boxplot() +
  # Here comes the magic!
  scale_x_discrete(name = "",
                   # Note that we put an empty space before the subscript
                   labels = c(expression(""[M]*"Setosa"),
                              expression(""[L]*"Versicolor"),
                              expression(""[Q]*"Virginica")))