---
title: "Report parametrico"
author: "DV"
format: html
execute:
  warning: false
  echo: false
params:
  anno: 2007
  continente: "Americas"
---

Questi sono i parametri utilizzati per compilare il report:

```{r}
params
```

```{r}
library(tidyverse)
library(gt)
library(plotly)
tb_continente <- gapminder::gapminder |> 
  filter(continent == params$continente)
```

## Statistiche descrittive

La seguente tabella riporta le principali statistiche di sintesi relative all'aspettative di vita per il continente `r params$continente` nell'anno `r params$anno`:

```{r}
tb_continente |> 
  filter(year == params$anno) |> 
  summarise(minimo = min(lifeExp), 
            media = mean(lifeExp), 
            max = max(lifeExp)) |> 
  gt(caption = paste0("Statistiche dell'aspettativa di vita\n",
                      params$continente,
                      " - anno ",
                      params$anno)) |>   
       fmt_number(decimals = 1)
```

## Andamento dell'aspettativa di vita

Il seguente grafico riporta l'andamento dell'aspettativa di vita (asse verticale) lungo gli anni disponibili (asse orizzontale) per i differenti paesi del continente `r params$continente`:

```{r}
gg <- ggplot(data = tb_continente) +
  aes(x = year, y = lifeExp, colour = country) +
  geom_line()

ggplotly(gg) |> 
  layout(showlegend = FALSE)
```
