---
title: "Report paese `r params$paese` (continente: `r params$continente`)"
author: "DV"
format:
  html:
    self-contained: true
execute: 
  warning: false
  message: false
  echo: false
params:
  paese: Spain
  continente: Europe
---

```{r}
library(gapminder)
library(tidyverse)
library(DT)
library(plotly)
```

## Dati relativi al paese `r params$paese`

```{r}
dati_paese <- gapminder |> 
  filter(country == params$paese) |> 
  select(-country, -continent)
```

La seguente tabella riporta i tre indicatori disponibili nel dataset `gapminder` per il paese `r params$paese`:

```{r}
dati_paese |> 
  datatable(options = list(pageLength = -1,
                           searching = FALSE,
                           lengthChange = FALSE,
                           paging = FALSE,
                           info = FALSE))
```

## Andamento dell'aspettativa di vita in `r params$paese`

Il grafico seguente mostra l'andamento dell'aspettativa di vita per il paese `r params$paese` confrontandolo con il corrispondente andamento per il continente `r params$continente`:

```{r}
dati_continente <- gapminder |> 
  filter(continent == params$continente) |> 
  group_by(year) |> 
  summarise(lifeExp = mean(lifeExp))
```

```{r}
dati_plot <- bind_rows(tibble(gruppo = params$continente, dati_continente),
                       tibble(gruppo = params$paese, select(dati_paese, year, lifeExp)))
```

```{r}
ggplot(data = dati_plot) +
  aes(x = year, y = lifeExp, colour = gruppo) +
  geom_line(aes(linetype = gruppo)) +
  scale_linetype_manual(values = c("dashed", "solid")) +
  scale_color_manual(values = c("red", "black")) +
  theme_classic() +
  theme(legend.title = element_blank())
```

