---
title: "Enquête RPS 2014 - Restitution"
output:
  word_document: default
---

```{r setup, include=FALSE}
# on active ici les packages qui nous seront utiles
library(dplyr)       # manipulation de données
library(forcats)     # manipulation de facteurs
library(formattable) # fonctions d'affichage des nombres
library(ggplot2)     # graphiques
library(ggthemes)    # styles supplémentaires pour {ggplot2}
library(ggforce)     # annotations automatisées (formes)
library(knitr)       # intégration des tableaux dans Markdown

# on récupère également les objets sauvegardés
setwd("C:/Users/Olivier/Desktop/russ")
load("out/objets_pour_markdown.Rdata")
```

# L'enquête RPS

Notre base de travail est une enquête menée auprès de `r prettyNum(nrow(rps), big.mark=" ")` personnes travaillant dans la société.
Elles ont rempli un questionnaire en ligne entre le `r as.character(min(rps$date_reponse),"%d %B %Y")` et
le `r as.character(max(rps$date_reponse),"%d %B %Y")`.
Une fois effectué une pondération calée sur l'ensemble des salariés de la société, cette base de travail est
représentative de `r prettyNum(sum(rps$poids), big.mark=" ")` personnes.

## Le rythme de travail

Une série de questions concerne le rythme de travail. Le tableau ci-dessous reprend les réponses à ces questions, en indiquant le pourcentage des salarié(e)s pour chaque modalité de réponse.

```{r tab1, echo=FALSE}
kable(tableau1,
      caption="Tableau 1 - Rythme de travail (effectifs pondérés en %)",
      align=c("l",rep("r",ncol(tableau1)-1)))
```

## La satisfaction de l'emploi

Une question globale mesure le niveau de satisfaction du (de la) salarié(e) dans son travail. Voici les réponses déclinées en fonction du temps de trajet déclaré entre le domicile et le lieu de travail.

```{r graph1, echo=FALSE, fig.cap="Figure 1 - Satisfaction selon le temps de transport",warning=FALSE, fig.width=9, fig.height=13}
graphique1
```

## Le stress au travail

L'indice de stress mesure à quel point le (la) salarié(e) peut être stressé(e) par son environnement professionnel. On calcule l'indice de stress par une combinaison de réponses à plusieurs questions : *il ne s'agit pas d'une question posée directement au répondant*.  
Plus cet indice est élevé, plus il indique un fort stress chez le (la) salarié(e) ; sur l'ensemble des répondants, on aura des valeurs comprises entre `r min(rps$indice_stress, na.rm=TRUE)` et `r max(rps$indice_stress, na.rm=TRUE)`.
Le graphique suivant décline l'indice de stress en fonction de l'âge et du sexe.

```{r graph2, echo=FALSE, fig.cap="Figure 2 - Stress par âge et sexe", warning=FALSE, fig.width=8}
graphique2
```