---
title: Analyse en Composantes Principales avec FactoMineR sur les donn�es du cours
  (donn�es temp�ratures)
author: "Fran�ois Husson"
output:
  pdf_document:
    fig_height: 6
    keep_tex: yes
  word_document: default
---

Script et sorties R permettant de retrouver les graphes et sorties du cours.
Le jeu de donn�es doit �tre t�l�charg� et sauvegard� dans un r�pertoire connu (dans mon cas, le fichier a �t� sauvegard� dans le r�pertoire "C:/husson"").

```{r}
library(FactoMineR)
```

# Importation des donn�es
```{r eval=FALSE}
setwd("C:/users/husson/")   # permet de placer la session R o� se trouve le jeu de donn�es
temperature <- read.table("AnaDo_JeuDonnees_TemperatFrance.csv",
        header=TRUE, sep=";", dec=".", row.names=1, fileEncoding="latin1")
```

```{r echo=FALSE}
temperature <- read.table("C:/Users/husson/Documents/home/huss/Enseign/cours/Films/Mooc_anado/Donnees/AnaDo_JeuDonnees_TemperatFrance.csv",
        header=TRUE, sep=";", dec=".", row.names=1, fileEncoding="latin1")
```
```{r}
summary(temperature)
```
# L'ACP
```{r eval=FALSE}
res <- PCA(temperature, quanti.sup=13:16,quali.sup=17)
```
```{r echo=FALSE}
res <- PCA(temperature, quanti.sup=13:16,quali.sup=17, graph=FALSE)
plot(res,cex=.7)
plot(res,choix="var",cex=.7)
```

# R�sum� des principales sorties R

On r�sume ici les r�sultats des 2 premi�res dimensions sur tous les individus

```{r}
summary(res, ncp=2, nbelements=Inf)
```

# Graphe en coloriant les villes en fonction de la r�gion
```{r}
plot(res,habillage="R�gion")
```
