ca tracer les attributs de texte

Question

Est-ce que quelqu'un sait d'un moyen de contrôler la taille de la police/couleur/poids des noms de lignes et de colonnes lors du tracé d'un tracé de correspondance avec le paquet ca? Le code suivant va produire une très belle carte, mais s'il y avait plus d'attributs (très lourd, super lourd, quelque chose de plus que super lourd) ou plus de catégories de travailleurs (peons, sous-fifres, etc) alors le graphique obtenir un peu encombré et difficile de dire ce qui était quoi.

Ce serait bien si vous pouviez lister tous les attributs dans une couleur distincte que les catégories de travailleurs. Alternativement, est-ce que quelqu'un sait s'il y a un moyen de reproduire quelque chose le long de ces lignes avec ggplot2?

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) 
) 

Je n'ai rien trouvé sur le site qui semblait comparable, mais je ne sais pas grand-chose sur le paquet.

Merci, -Chase

Answer 1

Je voudrais essayer quelques-unes des autres fonctions d'analyse de correspondance disponibles dans R. Dans certains d'entre eux l'option facteur d'expansion de caractères (cex) est pris en charge, de sorte que vous pouvez contrôler la taille de la police. par exemple.

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) 

EDIT

Bien sûr, vous pouvez obtenir les coordonnées du ca et générer ce ResultSet complot en utilisant ggplot2. Ici, j'utilise l'objet res de CA.

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) 

Answer 2

Le deuxième bloc de code de George Dontas est un très bon exemple. Résolu un gros problème pour moi. Mais il m'a fallu une éternité pour comprendre que les noms des objets CA-sont en fait:

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

et

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