第一个关于希腊字母的问题，前几天已经有人发过帖子我回答过了lz往后翻几页应该就能找到，同样是通过expression，但要提醒lz的是，par函数中关于加粗的命令也就是font=2对expression是无效的，如果需要加粗可以这样expression(bold(.......))，当然非常遗憾的是这招的对希腊字母也是无效的，曾经在stackoverflow上看到过类似的求助帖，但也没有得到很好的解决方案，只能抱歉了。只能期待package了

第二个问题，恕我不是很明白这张到底什么意思，右边那两小方格的坐标是与大方格共用坐标系么？如果是的话那么用abline之类的低级作图函数就可以了。

希望对lz有用

多谢。

昨晚在该版搜“希腊字母”，印象中搜到结果为0。今天搜索“希腊”、又“希腊字母”，倒是都看到你说的那个帖子了。奇怪。

第二个问题，那个图的意思应该是分开的坐标系，共同的坐标标签。所以，我在想是不是老师画错了。他就是想我们用layout画3个图而已。一会我尝试下，共同标签下，abline怎么做。有问题再请教。

ok

本楼后面说的问题已解决。
同样也谢谢。原因在于：
我在WORD里面修改的，后面plot颜色参数的引号有问题。





请教下，下面的程序，按道理应该做成3个图的。可为什么它就只在一个图上做？
（ps：刚开始时，也的确是做成了3个，后来，微调了些参数。就变成一个图了，也不知道问题出在哪里。重启电脑了，还是一样。）请大家帮忙看看。多谢。-----------------------------------------------
刚又做了一些尝试，如果我把代码中标红色和蓝色的都去了，可以正常画3个图，如果只去蓝色部分，可以画出来2个图。好诡异的说。
求大家解惑……

data(faithful)
attach(faithful)
faithful$col=ifelse(eruptions<3.2,"red","green")
d1=faithful[eruptions<3.2,]
d2=faithful[eruptions>=3.2,]
par(tcl=0.4)
layout(matrix(c(rep(1,4),2,3),2,3))
par(mai=c(.5,.7,1,0))
plot(waiting~eruptions,xlab =expression(bold(paste("                                    eruptions(",tau,")"))),ylab=expression(bold(paste("waiting(",delta,")"))),col.lab="blue",font.lab=2, mgp=c(2.1,0.3,0),cex.axis=1.2,cex.lab=1.5,adj=0.5 ,col=faithful[,3], pch=16,cex=0.8)
abline(lsfit(eruptions,waiting),lty=1)
par(mai=c(0,0,1,0.4))
plot(d1$waiting~d1$eruptions,xlab ="",ylab="",col.lab="blue",font.lab=2,mgp=c(1.5,0.3,0),cex.axis=1,cex.lab=1 ,col.axis=5 ,col=”red”, pch=16,cex=0.8)
abline(lsfit(d1$eruptions,d1$waiting),lty=2)
par(mai=c(.5,0,0,0.4))
plot(d2$waiting~d2$eruptions,xlab ="",ylab="",col.lab="blue",font.lab=2,mgp=c(1.5,0.3,0),cex.axis=1,cex.lab=1 ,col.axis=”orange” ,col=”green”, pch=16,cex=0.8)
abline(lsfit(d2$eruptions,d2$waiting),lty=3)
par(mai=c(.5,.7,1,0))

囧，那是因为后面两个plot根本就没有被执行，你可以看一下报错，因为你的col后面用了中文的引号，所以你把含col的语句去掉之后图又能画出来了，R里面不支持中文标点符号