使用?plotmath，你可以通过intersect()添加一个交集运算符：
注：感谢@G.Grothendieck教我不需要在expression()内 Package 。

library(ggplot2)

#xlab <- expression(Delta~frac(A(E[M]~intersect()~E[E]), A(E[E])))

xlab <- Delta~frac(A(E[M]~intersect()~E[E]), A(E[E]))

ggplot() + 
  labs(x = xlab)

根据我的理解，你应该使用latex2exp包直接在Latex中编写图例，如下所示：

library(latex2exp)
library(ggplot2)
ggplot() +
  labs(x = TeX(r'($\Delta \frac{A(E_M \cap E_E)}{A(E_E)}$)'))

您可以使用unicode的符号。例如，\u0394表示delta，\u2229表示intersection。

library(ggplot2)
ggplot() + xlab(expression("\u0394"~frac(A(E[M]~"\u2229"~E[E]), A(E[E]))))

创建于2023-05-11带有reprex v2.0.2