如何将上标附加到变量以在 ggplot 轴中显示？

Question

这与How to use superscript with ggplot2的问题类似

但我在变量中有一个字符串，而不是标签的硬编码值，我需要将“mm^3”附加到字符串并在ggplot中显示。

我有这样的代码：

genericPlot <- genericPlot + labs(y = wrap(ylab, wrap.length))

#' Wrap
#' 
#' @param x character, values to be wrapped
#' @param width numeric, max number of characters
#' 
#' @return Wrapped x
wrap <- function(x, width) {
  sapply(
    X = x, 
    FUN = function(x) paste(strwrap(x, width = width), collapse = "\n"))
}

我试过用这个：

paste(ylab, bquote(~mm^3))

但这给了我带有 2 个元素的向量：

[1] "foo ~"    "foo mm^3"

Answer 1

你很亲密！而不是使用paste 使用.(VAR) 从bquote 调用您的变量。

library(ggplot2)
ylab <- "foo"
myX  <- "bar" 
ggplot() + 
    ylab(bquote(.(ylab) *" ~ "* mm^3)) +
    xlab(bquote(.(myX) *" ~ "* kg^2))

Answer 2

我无法在短时间内了解您的情况，但我曾使用以下代码生成以下输出

scale_y_continuous(trans="log10", breaks=ybreaks, name= expression(Discharge~~ or ~~ flow ~~ group("[",m^3/s, "]")))