R語(yǔ)言中特殊符號(hào)的使用

有時(shí)候我們需要在圖形上添加特殊符號(hào)，比如希臘字母和斜體字。有時(shí)候，我們還希望在圖形上添加數(shù)學(xué)注釋。在R語(yǔ)言中，我們可以使用expression()函數(shù)來(lái)完成這個(gè)任務(wù)。

希臘字母：

## 1 alpha
## 2 beta  
## 3 gamma  
## 4 delta
## 5 epsilon
## 6 zeta
## 7 eta
## 8 theta
## 9 iota  
## 10 kappa  
## 11 lambda
## 12 mu  
## 13 nu
## 14 xi
## 15 omicron  
## 16 pi
## 17 rho  
## 18 (final) sigma
## 19 sigma  
## 20 tau
## 21 upsilon
## 22 phi  
## 23 chi
## 24 psi  
## 25 omega  
Greek_text <- c("alpha", "beta", "gamma", "delta", "epsilon", "zeta", "eta", "theta", "iota", "kappa",  "lambda", "mu", "nu", "xi", "omicron",  "pi",  "rho",  "sigma", "tau", "upsilon", "phi",   "chi", "psi", "omega")
greek <- c(expression(alpha), expression(beta), expression(gamma), expression(delta), expression(epsilon), expression(zeta), expression(eta), expression(theta), expression(iota), expression(kappa), expression(lambda), expression(mu), expression(nu), expression(xi), expression(omicron), expression(pi), expression(rho), expression(sigma), expression(tau), expression(upsilon), expression(phi), expression(chi), expression(psi), expression(omega))
y_coord <- vector(mode = "numeric", length = 23L)
for(i in 1:23) {y_coord[i] <- 1 + 3*i}
plot(1:70, type = "n", ylab = "", xlab = "", axes = FALSE)
for(i in 1:24){
text(10, y_coord[i], labels = greek[i])
text(15, y_coord[i], labels = Greek_text[i], adj = c(0.1, 0.4), cex = 0.8)
}

公式：

xlab.name <- expression(paste(italic(vti), Delta, sep=""))
ylab.name <- expression(mu * "ml")
main.name <- expression(paste(plain(sin) * phi))
plot(0, 0, xlab=xlab.name, type ="n",  ylab=ylab.name, main=main.name, xlim=c(-pi, pi), ylim=c(-1.5, 1.5), axes=FALSE)
axis(1, at = c(-pi, -pi/2, 0, pi/2, pi), labels = expression(-pi, -pi/2, 0, pi/2, pi))
axis(2)
box()
text(-pi/2, 0, expression(hat(alpha) == (X^t * X)^{-1} * X^t * y))
text(pi/2, 0, expression(paste(frac(1, sigma*sqrt(2*pi)), plain(e)^{frac(-(x-mu)^2, 2*sigma^2)}, sep="")), cex = 1.2)

ylab.name <- expression(sigma[21])
main <- expression(paste(italic(Sch9), Delta, "(18s and 5.8s)"))
n <- 20
plot(0, 0, ylab = "",  xlab = "", type = "n", main = substitute(paste(n[i], " = ", k), list(k = n)))
i <- 2
range.name = substitute(paste(italic(Sch9), Delta, " ", p, "/", k, " hr"), list(k = i*12, p = (i+1)*12))
text(0, 0, range.name)

上下標(biāo)：

plot(1,1, type = "n", ylab = "", xlab = "", main='Title')
text(1, 1.2, labels = expression('Title'^2), cex = 2, col = "darkgreen")
text(1, 0.8, labels = expression('Title'[2]), cex = 2, col = "red")