这个不可能

我试了一下，expression函数也不没实现

expression可以实现的啊，譬如以下代码：
plot(1,2,xlab=expression(Example:~~H[2]~ABS[3]~m^2~s^3),ylab='y')

ex <- expression(sqrt(x), x + y, x^2, x %in% A, x <= y, mean(x, y, z), x | y,  
    x & y)
n <- length(ex)
par(mar = rep(0.1, 4), cex = 1.5)
col <- c("red", "blue")
plot.new()
plot.window(c(0, n), c(0, 1))
for (i in 1:n) text(i - 0.5, 0.5, ex, colcol = col[i%%2 + 1])