如何使用 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([M]*"Control à LControl") ， expression不會解析該expression 。 你總是需要在下標括號前添加一些東西。 在您的情況下，代碼塊應該是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")))