Graphics ca打印文本属性

是否有人知道在使用ca包绘制对应图时控制行和列名的字体大小/颜色/权重的方法

下面的代码将生成一个非常好看的图表，但是如果有更多属性（非常重、超重、超重）或更多类别的工作人员（员工、下属等），那么图表将变得有点混乱，很难分辨是什么

如果您能以单独的颜色列出所有属性，而不是工人类别，那就太好了

library(ca)
data("smoke")

plot(ca(smoke)
  , map = "symmetric"
  , what =c("active","active")
  , mass = c(T,T)
  , contrib = "absolute"
  , col = c("red","blue")
  , pch = c(15,17,15,17)
  , labels = c(2,2)
  , arrows = c(T,F)
)

或者，是否有人知道是否有一种方法可以用ggplot2沿着这些线复制某些东西？我在网站上找不到任何类似的东西，但我对软件包了解不多

谢谢，

---

-Chase

我将尝试R中提供的其他一些对应分析功能。其中一些功能支持字符扩展因子（

cex

）选项，因此您可以控制字体大小。 e、 g

库（FactoMineR）
resGeorge Dontas的第二个代码块就是一个很好的例子。为我解决了一个大问题。但我花了很长时间才发现CA对象的名称实际上是：

[YOUR_CA-CLASS-TABLE]$colcoord[,1]

及

这正是我在路上需要帮助的。我很抱歉没有早点回复，我一直在旅行。再次感谢！我认为这更适合作为对乔治·顿塔斯答案的评论。
df <- data.frame(dim1 = c(res$col$coord[,1],res$row$coord[,1]), 
dim2 = c(res$col$coord[,2],res$row$coord[,2]),
type=c(rep(1,length(res$col$coord[,1])),rep(2,length(res$row$coord[,1]))))

library(ggplot2)
qplot(dim1,dim2,data=df,colour=factor(type)) +
geom_text(aes(label=rownames(df)),size=3)

[YOUR_CA-CLASS-TABLE]$colcoord[,1]

[YOUR_CA-CLASS-TABLE]$rowcoord[,1]