---
title: "le pouvoir d'achat des ouvriers anglais du XVIe au XIXe siècle"
author: "Antonin ROYER"
date: "08 octobre 2024"
output: pdf_document
---


```{r setup, include=TRUE}
knitr::opts_chunk$set(echo = TRUE)
```


```{r}

data_url = "https://raw.githubusercontent.com/vincentarelbundock/Rdatasets/master/csv/HistData/Wheat.csv"

data <- read.csv(data_url, header = TRUE)
head(data)
```

```{r}
lignes_na <- apply(data, 1, function(x) any(is.na(x)))
data[lignes_na,]

```

```{r}
class(data$Year)
class(data$Wheat)
class(data$Year)
class(data$Wages)

data <- read.csv()
data$Year <- as.factor(data$Year)
data$Wages <- as.integer(data$Wages)
data$Wheat <- as.integer(data$Wheat)
```

```{r}
library(ggplot2)

data_plot <- ggplot(data, aes(x = Year, y=Wages)) +
  geom_bar(aes(y = Wheat), stat = "identity", width = 1, color = "black") +
  geom_line(aes(y = Wages), color = "red", size = 1, group = 1) +  
  geom_area(fill = "lightblue", alpha = 0.5) +
  labs(title = "Graphique en barres", x = "Year", y = "Wheat price") +
  scale_y_continuous(expand = expansion(mult = c(0, 0))) +  # Supprimer l'espace entre les barres et l'axe x
  scale_x_discrete(breaks = levels(data$Year)[seq(1, length(levels(data$Year)), by = 5)]) +  # Afficher une année sur cinq
  theme_classic()

data_plot

```