> w
    平均值 最大值 最小值
1    0.181  0.185  0.180
2    0.180  0.180  0.180
3    0.180  0.190  0.175
4    0.175  0.180  0.170
5    0.173  0.175  0.170
6    0.170  0.175  0.170
7    0.170  0.175  0.165
8    0.166  0.175  0.165
9    0.209  0.225  0.175
10   0.202  0.210  0.185
11   0.192  0.205  0.180
12   0.174  0.180  0.165
13   0.163  0.165  0.160
14   0.189  0.210  0.160
15   0.186  0.200  0.165
16   0.164  0.170  0.160
17   0.185  0.220  0.160
18   0.222  0.230  0.215
19   0.235  0.240  0.230
20   0.246  0.255  0.235
21   0.254  0.260  0.245
22   0.224  0.245  0.215
23   0.203  0.215  0.200
24   0.194  0.200  0.190
25   0.203  0.215  0.190
26   0.214  0.220  0.205
27   0.213  0.215  0.210
28   0.215  0.225  0.205
29   0.234  0.260  0.210
30   0.274  0.285  0.255
31   0.281  0.300  0.265
32   0.264  0.280  0.245
33   0.249  0.260  0.235
34   0.234  0.255  0.220
35   0.237  0.245  0.220
36   0.225  0.240  0.220

> s.ts.m<-ts(w)

> plot(s.ts.m,plot.type="single",col=c("red","green","blue"),lty=1,xaxt="n")

> x<-seq(1,36,4)

axis(2,at=x,labels=x)为什么坐标刻度和刻线加不上去？