删除 ggplot2 轴标题和标签中前导上标中的空格

Question

也许我不正确，但在我看来，以上标开头的表达式中有一个不需要的空格：

df <- data.frame(treatment=as.factor(c("A", "B")), value=c(1,2))

labels <- c(expression(""^14~CH[4]),
            expression(""^14~CH[4]~"+"~"SO"[4]^{2-''}))

library(ggplot2)
ggplot(df, aes(treatment, value)) +
  geom_bar(stat="identity") +
  scale_x_discrete(labels=labels)

我可以去Photoshop来减少上标14和“C”之间的空间，但也许plotmath中有办法？请注意，这不会发生在最后带有上标的第二个表达式中。

Answer 1

在表达式中，在~术语之间留出一个空格。如果您不希望术语之间有空格，则可以使用*. 结束上标前面没有~，因此没有空格。

您还可以删除大部分引号 - 除非有特殊字符或空格，否则这些都是不必要的。

所以你的表情可以变成

expression(''^14*CH[4]~+~SO[4]^'2-')