【R作图】请教：多图共用一个坐标标签，以及坐标标签加希腊字母

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

老师布置的作业，有2个疑问，请教：1，怎样在坐标标签里加入希腊字母并加粗？
data(faithful)
attach(faithful)
plot(waiting~eruptions,xlab = expression(paste("eruptions(",tau,")")),col.lab="blue",font.lab=2)
#我编了这个，xlab的字体就被固定住了，不能加粗，不能斜体。如果不用这个，又实在不知道怎么出现希腊字母。


2，因为这个数据，点分成大致的两块，所以老师希望我们做3个图：
一个是原图，另外两个是把数据点分块再做回归。
但如果用：par(mfrow())和layout都实现不了3个图在一起，同时不共用坐标轴，但共用坐标标签。
在另外一个帖子里面看到“lattice”包，做出来的图形很像，但好像也有些区别。如果lattice可以实现，请问应该怎么做。


因为刚接触R，很多东西不会，希望大家尽量说详细些。谢谢。

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：希腊字母 Expression Faithful Lattice express 标签 希腊 字母

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

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

希望对lz有用

求证1加1 发表于 2013-9-7 11:06
第一个关于希腊字母的问题，前几天已经有人发过帖子我回答过了lz往后翻几页应该就能找到，同样是通过expres ...

多谢。

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

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

qimuxiaoyao 发表于 2013-9-7 11:26
多谢。

昨晚在该版搜“希腊字母”，印象中搜到结果为0。今天搜索“希腊”、又“希腊字母”，倒是都看到 ...

ok

求证1加1 发表于 2013-9-7 11:28
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里面不支持中文标点符号

求证1加1 发表于 2013-9-7 17:01
囧，那是因为后面两个plot根本就没有被执行，你可以看一下报错，因为你的col后面用了中文的引号，所以你把含 ...

是的。后来找出问题了，我在那层楼里也说了。
想着保留错误，给同样也可能犯这样错误的初学者一个提醒，就没改。

值得学习！