::: {.cell hash='03_Data_preprocessing_cache/revealjs/unnamed-chunk-70_d5ab1b19a25c3b41f7cc60a69563c05b'}

```{.r .cell-code}
energy_productivity %>%
  pivot_longer(`2000`:`2019`, names_to='year', values_to='energy_productivity') %>%
  separate(`unit,geo\\time`, into=c("unit", "state"), sep=',')
```

::: {.cell-output .cell-output-stdout}
```
# A tibble: 1,560 × 4
   unit     state year  energy_productivity
   <chr>    <chr> <chr>               <dbl>
 1 EUR_KGOE AT    2000                 8.69
 2 EUR_KGOE AT    2001                 8.34
 3 EUR_KGOE AT    2002                 8.43
 4 EUR_KGOE AT    2003                 8.08
 5 EUR_KGOE AT    2004                 8.15
 6 EUR_KGOE AT    2005                 8.06
 7 EUR_KGOE AT    2006                 8.26
 8 EUR_KGOE AT    2007                 8.72
 9 EUR_KGOE AT    2008                 8.78
10 EUR_KGOE AT    2009                 8.90
# ℹ 1,550 more rows
```
:::
:::