---
title: "Rmd NMC ES"
author: "nombre estudiante"
date: "11/1/2020"
output: 
  html_document:
    number_sections: true
---

# Actividad NMC

## Introducción

Lo primero que tenemos que hacer es asegurarnos de que cargamos al RMarkdown todos los **paquetes** que necesitamos.

- Recordad que para ocultar los mensajes que aparecen es `message = FALSE` y en alguna ocasión también` warning = FALSE`.

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

En segundo lugar, debemos **descargar** la base de datos. El siguiente chunk descarga y descomprime la base de datos a vuestro ordenador. Una vez tenéis los archivos que necesitáis (el archivo `NMC-60-abridged.csv` y el archivo `NMC-60-wsupplementary.csv`) en vuestro directorio de trabajo, podéis eliminar el chunk, ya que de lo contrario nos descargará el archivo cada vez que generéis el Html mediante *Knit*. Podéis:

- Eliminar todo el chunk.
- O bien cambiarlo a `eval = FALSE`.

```{r eval = TRUE}
#descarregad el archivo 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") #descomprimimos el archivo
unzip("NMC-60-wsupplementary.zip") #descomprimimos el archivo
unzip("NMC-60-abridged.zip") #descomprimimos el archivo

dir() #comprobad que en el vuestro directorio de trabajo haya los archivos:
# NMC-60-abridged.csv
# NMC-60-wsupplementary.csv
```

Lo que sí debemos poner obligatoriamente es la función que lee el archivo (tipo `read_csv("NMC-60-abridged.csv")`). Esta función busca el archivo `"NMC-60-abridged.csv"` en el directorio de trabajo para crear el objeto `nmc`, con el que trabajaremos más abajo.

```{r}
nmc <- read_csv("NMC-60-abridged.csv") #creamos el objeto de R nmc
nmcs <- read_csv("NMC-60-wsupplementary.csv") #creamos el objeto de R nmcs
```

## Marco de datos

Para visualizar marcos de datos dentro de RMarkdown utilizad siempre la función `head()`, como se indica a continuación. Si, en cambio, sólo escribimos `nmc` a dentro del chunk, nos reproducirá todas las filas al Html (y este marco de datos tiene más de 15.000 filas por el que será un archivo interminable!).

- Tened en cuenta que hemos escondido el código con `echo = FALSE`.


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

## Visualizar

Los chunks también permiten reproducir gráficos.


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

Recordad:

- Procura de entregar **toda** la PEC con un Html generado con RMarkdown.
- De esta plantilla, **elimina** todo el texto que consideres oportuno.
- Esconde el código de los chunks que no haya que mostrar (`echo = FALSE`).

