求助：plot改标签大小

jyt1111

各位大侠，遇到一个问题，用一组数据做多元因子分析，数据出来后，我想改一幅图的变量的标签，使用cex改，却怎么也改不了，急人啊

x<-read.delim("E:/11.txt",header=TRUE)

> aa=MFA(x,group=c(1,26,5),type=c("n","s","s"),ncp=5,name.group=c("site","biologigy","environment"),num.group.sup=c(1))

> plot(aa,choix="var",cex=0.8)

设置完之后，图一点变化都没有，望各位大侠指点一二，小弟不胜感激

jyt1111

刚刚图打不开，重新发一遍

[attachment=212582,797]

petboy

用 label.cex, axis.cex 试试

jyt1111

谢谢petboy，这两个命令也不行，其实觉得很奇怪，Plot（）函数里面本来就有cex这个命令，但是为什么就不能修改标签呢，真是愁死人了，急着写毕业论文呢，也希望高手能够指点指点

nan.xiao

咦, 这个函数有点奇怪, 搭车同问.

不过如果LZ只是想把这图画出来不想管技术细节的话也许可以先用这包中另外一个函数凑合一下:

<br />
require(FactoMineR)<br />
data(wine)<br />
tmp = MFA(wine,group = c(2, 5, 3, 10, 9, 2),<br />
		 type = c("n", rep("s", 5)), ncp = 5,<br />
		 name.group = c("orig", "olf", "vis",<br />
		 "olfag", "gust", "ens"),<br />
		 num.group.sup = c(1, 6), graph=FALSE)</p>
<p>png("mfa.png", width = 480, height = 480)<br />
graph.var(tmp, title="Correlation circle",<br />
		  col.sup = "black", cex=0.6,<br />
		  new.plot = FALSE)<br />
dev.off()</p>
<p>## End(Not run)<br />

</p>

画出来你会发现底下多了一行小字, 可以直接用Acrobat的TouchUp工具删去 ... 我这个图是ps掉的 ... [s:11]

[attachment=212617,798]

jyt1111

多谢楼上nan.xiao的指点，图画出来了，至少是可以用了，谢谢你。我也在关注这个函数本身的修改方法，如果有一天知道了，也发上来，大家共享，再次感谢nan.xiao。

jyt1111

回复第5楼的 nan.xiao：nan.xiao，我还想问你一下，如果我想不同组别显示不同的颜色，和直线类型，该怎么实现啊，多谢！

nan.xiao

啊, 原来太傻太天真, 其实很简单啊, 修改原plot.MFA()函数195行左右和225行左右的两个text()函数就行了. 分别强制添加参数cex = 0.6, 改好的函数见附件. 用以下语句测试:

<br />
require(FactoMineR)<br />
source("mymfaplot.R")<br />
data(wine)<br />
tmp = MFA(wine,group = c(2, 5, 3, 10, 9, 2),<br />
         type = c("n", rep("s", 5)), ncp = 5,<br />
         name.group = c("orig", "olf", "vis",<br />
         "olfag", "gust", "ens"),<br />
         num.group.sup = c(1, 6), graph=FALSE)<br />
mymfaplot(tmp, choix="var", habillage="group")<br />

</p>

效果如图

[attachment=212645,800]

nan.xiao

哎, 我真是Too simple, sometimes naïve ... [s:15]

不同的直线类型 .. 这个 .. 你改好以后千万别忘了发上来 [s:11]

nan.xiao

呃, 个人观点. 不同的点线类型一般是为黑白印刷而准备的, 如果点线类型和颜色同时用, 就有点多此一举了. 如果学校可以接受彩印和提供彩扫archive, 那这样的彩图就足够了 .. 原作者好像也只提供了颜色这一种手段, 也就是说, 如果只能用黑白双色+不同线型来区分组别, 可能达不到使用不同颜色+相同线型的效果. 这图线一多基本就没法区分不同的线型了吧.

jyt1111

回复第10楼的 nan.xiao：多谢nan.xiao，你说的可真是细致，万分感谢，我是一个初学者，所以，在做这些东西的时候，很多也是在摸索，等后面如果有什么新发现，我一定共享一下，再次感谢了！！！[s:11]

jyt1111

回复第10楼的 nan.xiao：nan.xiao，还有问题要请教你，我在图上觉得两种标签的颜色太相像了，因为我们是打印黑白的（狂汗一下），有没有办法调的颜色反差大一些啊，还有能不能两组数据调成不一样（字体）的标签啊，还有怎么把标签和坐标轴的字体改一下啊，改成Times New Roman或者Arial，先谢谢你了！

nan.xiao

改颜色自定义一下palette应该就可以. 没试过一幅图里用多种不同的字体, 技术上也许可以做到, 不过Times这种衬线字体我觉得还是别用在图形里了, 个人观点 [s:11]

R图形的默认字体不是Helvetica吗? 比Arial正统多了 ..

jyt1111

回复第13楼的 nan.xiao：这个palette该怎么改啊，我试了好多次，都不行，狂汗，唉，我还是太菜了

jyt1111

回复第13楼的 nan.xiao：这几天一直看你给我的源程序，想改一下，可是试了很多次都不行，真是改的我欲生欲死的[s:15]，麻烦你写详细点，我还很菜[s:12]

nan.xiao

颜色, 单纯的指定调色板的参数即可:

<br />
mymfaplot(tmp, choix="var", habillage="group",<br />
          palette=palette(c("#D9D9D9", "#BDBDBD", "#969696",<br />
                            "#636363", "#252525")))<br />

</p>

组数少还行, 组数一多恐怕会分不清.

线型, 也是可以改的, 但是出来的效果很惨, 如图.

[attachment=212859,808]

jyt1111

回复第16楼的 nan.xiao：谢谢nan.xiao，回的很详细，谢谢你，万分感谢[s:13]

jyt1111

回复第16楼的 nan.xiao：nan.xiao,用你教的方法，我的数据图做出来感觉好了很多，可是，由于变量很多，标签显示时太过密集，不知道有没有方法把密集的标签分散一些，下面就是我的数据图，先谢谢你

[attachment=212881,811]

nan.xiao

QND法: 存成PDF, 使用Acrobat的TouchUp工具手动调整各标签位置.

jyt1111

回复第19楼的 nan.xiao：我试过了，可以，真是太感谢了，这些工具虽然我都有，但是都没有用过，感谢，感谢[s:11]