2

有没有人知道在用 ca 包绘制对应图时控制行名和列名的字体大小/颜色/粗细的方法？

下面的代码将生成一个非常漂亮的图表，但如果有更多的属性（非常重、超重、比超重更多的东西）或更多类别的工人（peon、下属等），那么图表会变得有点混乱很难说什么是什么。

如果您能以不同于工人类别的颜色列出所有属性，那就太好了。

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 重现这些内容？我在网站上没有找到任何看起来可比的东西，但我对这个包了解不多。

谢谢，-追逐

4

2 回答 2

6

我会尝试 R 中可用的其他一些对应分析功能。其中一些cex支持字符扩展因子 ( ) 选项，因此您可以控制字体大小。例如

library(FactoMineR)
res<-CA(smoke, ncp=5, row.sup=NULL, col.sup=NULL, graph = FALSE)
plot.CA(res, axes=c(1, 2), col.row="red", col.col="blue", label=c("col","col.sup", "row", "row.sup"),cex=.7)

library(MASS)
biplot(corresp(smoke, nf = 2),cex=.7,col=c("red","blue"))

library(anacor) # actually I didn't find a way to control font size here
res <- anacor(smoke, scaling = c("Benzecri", "Benzecri"),ndim=2) 
plot(res, plot.type = "jointplot", conf = NULL)

编辑

当然，您可以从 ca 结果集中获取坐标并使用 ggplot2 生成此图。这里我使用来自 CA 的 res 对象。

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)
于 2010-04-16T14:45:26.347 回答
0

George Donta 的第二个代码块是一个非常好的例子。为我解决了一个大问题。但是我花了很长时间才弄清楚 CA 对象的名称实际上是：

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

和

[YOUR_CA-CLASS-TABLE]$rowcoord[,1]
于 2014-01-20T21:52:53.227 回答