是否可以在x軸值中添加數學符號？

Question

而不是在x標籤中添加數學符號，我試圖在0,40和40秒添加$ t_ [1，n] $，$ t_ [2，n] $和$ t_ [3，n] $符號。 x軸值分別爲85點。這樣做，我的代碼是

m=c(rnorm(40,0,.5),rnorm(45,5,.5)); 
plot(rep(1:85,1), m, type="l", lty=1, xaxt='n', yaxt='n',ann=FALSE, col=4); 
windowsFonts(script=windowsFont("Script MT Bold")); 
title(xlab=c(expression(t[1,n]), expression(t[2,n]), expression(t[3,n])), family="script"); 

Answer 1

使用axis而不是title。

axis(side = 1, at = c(0, 40, 85), 
    labels = c(expression(t["1,n"]), 
       expression(t["2,n"]), 
       expression(t["3,n"]))) 

Answer 2

也許與ggplot2嘗試，喜歡這裏：

library("ggplot2") 

x <- 1:85 
y <- c(rnorm(40,0,.5), rnorm(45,5,.5)); 

dane <- data.frame(x=x, y=y) 

ggplot(dane, aes(x=x, y=y))+ 
    geom_line()+ 
    theme_bw()+ 
    scale_x_discrete(breaks=c(1, 40, 85), 
        labels=c(expression(t[paste("[", 1, ",", n, "]")]), 
           expression(t[paste("[", 2, ",", n, "]")]), 
           expression(t[paste("[", 3, ",", n, "]")])))