使用latex2exp :: TeX用方程式注释由ggplot2绘制的图

Question

我的目标是通过使用软件包 latex2exp

将ggplot2绘制的图放在图中的空白区域中，以注释该图

例如，给定等式：

eqn <- "$\\textbf{Volume}(ml) = 0.035 \\cdot \\textbf{CSA}(mm^2) + 0.127 \\cdot \\textbf{age}(months) - 7.8$"

在R 3.5中运行以下代码：

library(ggplot2)
library(latex2exp)

ggplot(mpg, aes(x = displ, y = hwy)) +
  geom_point() + 
  annotate("text", x = 4, y = 40, label=TeX(eqn), hjust=0, size = 5)

我的示例代码失败，并出现以下错误：

Error in stats::complete.cases(df[, vars, drop = FALSE]) : 
  invalid 'type' (expression) of argument

我在做什么错了？

Answer 1

有效的解决方案，基于：

https://github.com/stefano-meschiari/latex2exp/issues/13

ggplot(mpg, aes(x = displ, y = hwy)) +
  geom_point() + 
  annotate("text", x=3, y=40, label=TeX(eqn, output="character"),
           hjust=0, size = 4, parse = TRUE)