---
title: "Rmd NMC CAT"
author: "nom estudiant"
date: "`r Sys.Date()`"
output: 
  html_document:
    number_sections: true
---

# Activitat NMC

## Introducció

El primer que hem de fer és assegurar-nos que carreguem al RMarkdown tots els **paquets** que necessitem.

- Recordeu que per amagar els missatges que apareixen és `message = FALSE` i en alguna ocasió també `warning = FALSE`.

```{r packages}
library(readr)
library(dplyr)
library(ggplot2)
```

En segon lloc, hem de **descarregar** la base de dades. El següent chunk descarrega i descomprimeix la base de dades al vostre ordinador. Un cop teniu els arxius que necessiteu (l'arxiu `NMC-60-abridged.csv` i l'arxiu `NMC-60-wsupplementary.csv`) al vostre directori de treball, podeu eliminar el chunk, ja que del contrari ens descarregarà l'arxiu cada vegada que genereu l'Html mitjançant *Knit*. Podeu:

- Eliminar tot el chunk.
- O bé canviar el chunk a `eval = FALSE` per què no us el reprodueixi més.

```{r eval = TRUE}
#descarreguem l'arxiu NMC_Documentation 6.0.zip
download.file("https://correlatesofwar.org/data-sets/national-material-capabilities/nmc_documentation-6-0.zip/@@download/file/NMC_Documentation%206.0.zip",
              "NMC_Documentation 6.0.zip")

unzip("NMC_Documentation 6.0.zip") #descomprimim l'arxiu
unzip("NMC-60-wsupplementary.zip") #descomprimim l'arxiu
unzip("NMC-60-abridged.zip") #descomprimim l'arxiu

dir() #comproveu que al vostre directori de treball hi hagi els arxius:
# NMC-60-abridged.csv
# NMC-60-wsupplementary.csv
```

El que sí que heu de posar obligatòriament al RMarkdown és la funció que llegeix l'arxiu, que tenim al següent chunk. Aquesta funció busca l'arxiu `"NMC-60-abridged.csv"` al directori de treball per crear l'objecte `nmc`, amb el qual treballarem més avall.

```{r}
nmc <- read_csv("NMC-60-abridged.csv") #creem l'objecte d'R nmc
nmcs <- read_csv("NMC-60-wsupplementary.csv") #creem l'objecte d'R nmcs
```

## Marc de dades

Per visualitzar marcs de dades a dins de RMarkdown utilitzeu sempre la funció `head()`, tal com indiquem a continuació. Si, en canvi, només escribim `nmc` a dins el chunk, ens reproduirà totes les files a l'Html (i aquest marc de dades té més de 15.000 files pel qual serà un arxiu interminable!).

- Fixeu-vos que hem amagat el codi amb `echo = FALSE`.

```{r nmc, echo = FALSE}
head(nmc, 10)
```

## Visualitzar

Els chunks també permeten reproduir gràfics.


```{r}
nmc %>%
  filter(stateabb %in% c("USA", "CHN")) %>%
  ggplot(aes(x = year, y = milper, col = stateabb)) +
  geom_line() +
  labs(title = "Poseu un títol al gràfic")
```

Recordeu:

- Procureu entregar **tota** la PAC amb un Html generat amb RMarkdown.
- D'aquesta plantilla, **elimineu** tot el text que considereu oportú.
- Amagueu el codi dels chunks que no calgui mostrar (`echo = FALSE`).


