markdown superscript and subscript

markdown superscript and subscript

str_mk(x)

label_mk(labels, ...)

Arguments

x

character vector

labels

character vector

...

ignored

Author

Dongdong Kong

Examples

x <- c(
  "gC m^{-2} d^{-1}",
  "gC m^-2 d^-1",
  "gC m_{-2} d_{-1}",
  "gC m_-2 d_-1",
  "gC \n mm/d"
)
str_mk(x)
#> [1] "gC m<sup>-2</sup> d<sup>-1</sup>" "gC m<sup>-2</sup> d<sup>-1</sup>"
#> [3] "gC m<sub>-2</sub> d<sub>-1</sub>" "gC m<sub>-2</sub> d<sub>-1</sub>"
#> [5] "gC <br> mm/d"                    
## use str_mk in ggplot
library(ggplot2)

d <- data.frame(
  x = 1:3, y = 1:3,
  varname = c("T_min", "T_max", "T_avg")
)

ggplot(d, aes(x, y)) +
  geom_point() +
  geom_richtext(aes(label = varname), x = 2, y = 2) +
  facet_wrap(~varname, labeller = label_mk) +
  theme(
    strip.text = element_markdown(face = "bold")
  )