啊, 原来太傻太天真, 其实很简单啊, 修改原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]
