Discussion :

[flourangel]

Bonjour,
J'essaie d'améliorer un graphique d'acp généré sous R en utilisant latex, mais j'ai un petit problème et je souhaite que vous pouvez m'aider.
Pour obtenir les graphique de l'acp, j'ai utilisé le package FactoMineR et j'ai exécuté le code ci-dessous:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
#tikzDevice pour résultat ACP de FactoMineR 
library(FactoMineR)
Dataset.pca = PCA(Dataset[ ,2:44], scale.unit=TRUE, ncp=2, quali.sup=c(1,2), graph=T) 
plot.PCA(Dataset.pca,choix="var", invisible="quanti.sup")
require(tikzDevice)
beamers.parms=(list(textwidth=6, textheight=3)) 
dir=getwd() 
tf <- file.path(dir,'acp.tex') 
tikz(tf, onefile=T)
dev.off()

Enfin, j'ai obtenu un fichier tex vide. J'arrive pas à trouver le problème malgré que j'ai obtenu de bon résultat en utilisant le package ade4. J'espère que vous pouvez m'aider.
Merci d'avance.

[vchouraki]

Bonjour,

Vous devez mettre la commande qui produit le graphique entre tikz() et dev.off().

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
tikz(tf, onefile=T)
plot.PCA(Dataset.pca, choix="var", invisible="quanti.sup")
dev.off()

Il y aura peut-être des particularités de plot.PCA à prendre en compte mais essayez toujours ça.

HTH

Vincent

[flourangel]

Bonjour,
J'ai mis le code comme vous m'avez indiquez:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
beamers.parms=(list(textwidth=6, textheight=3)) 
dir=getwd() 
tf <- file.path(dir,'acp.tex')
tikz(tf, onefile=T)
Dataset.pca = PCA(Dataset[ ,2:44], scale.unit=TRUE, ncp=2, quali.sup=c(1,2), graph=F)
plot.PCA(Dataset.pca, choix="var", invisible="quanti.sup")
dev.off()

Mais le graphique obtenu (attaché en pièce jointe) est vide qui ne contient pas la représentation des variables, il contient uniquement le titre du graphique.