删除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＆＃34;之间的空间，但也许在plotmath中有一种方法？请注意，这不会发生在最后一个带有上标的第二个表达式中。

Answer 1

在表达式中，*为术语提供了空格。如果您不希望术语之间有空格，则可以使用~。最后一个上标前面没有expression(''^14*CH[4]~+~SO[4]^'2-') ，所以没有空格。

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

所以你的表达可以成为

$joined_date = 2016-09-18