example dynam graph.Rmd

---
title: "GDP-Voorbeeld dynamische grafiek"
author: "FF"
date: "8/8/2020"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```


```{r eval=FALSE, include=FALSE}
library(tidyverse)
library(janitor)

gdp <- read_csv("./data/GDP_data.csv")

#select required columns

gdp <- gdp %>% select(3:15)

# filter only country rows

gdp <- gdp[1:217, ]

gdp_tidy <- gdp %>%
  mutate_at(vars(contains("YR")), as.numeric) %>%
  gather(year, value, 3:13) %>%
  janitor::clean_names() %>%
  mutate(year = as.numeric(stringr::str_sub(year, 1,4)))

write.csv(gdp_tidy, "./data/gdp_tidy.csv")

```

```{r eval=FALSE, include=FALSE}
library(gganimate)

gdp_tidy <- read_csv("./data/gdp_tidy.csv")

gdp_formatted <- gdp_tidy %>%
  group_by(year) %>%
  mutate(rank = rank(-value),
         Value_rel = value/value[rank==1],
         Value_lbl = paste0(" ", round(value/1e9))) %>%
  group_by(country_name) %>%
             filter(rank <=10) %>%
             ungroup()
  
```

```{r eval=FALSE, include=FALSE}
staticplot = ggplot(gdp_formatted, aes(rank, group = country_name,
                fill = as.factor(country_name), color = as.factor(country_name))) +
  geom_tile(aes(y = value/2, 
                height = value,
                width = 0.9), alpha = 0.8, color = NA) +
  geom_text(aes(y = 0, label = paste(country_name, " ")), vjust = 0.2, hjust = 1) +
  geom_text(aes(y = value, label = Value_lbl, hjust=0)) +
  coord_flip(clip = "off", expand = FALSE) +
  scale_y_continuous(labels = scales::comma) + 
  scale_x_reverse() +
  guides(color = F, fill = F) +
  theme(axis.line=element_blank(),
        axis.text.x = element_blank(),
        axis.text.y = element_blank(),
        axis.ticks = element_blank(),
        axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        legend.position = "none",
        panel.background = element_blank(),
        panel.border = element_blank(),
        panel.grid.major = element_blank(),
        panel.grid.minor = element_blank(),
        panel.grid.major.x = element_line(size = .1, color = "grey"),
        panel.grid.minor.x = element_line(size = .1, color = "grey"),
        plot.title = element_text(size = 25, hjust = 0.5, face = "italic", color = "grey"),
        plot.caption = element_text(size = 8, hjust = 0.5, face = "italic", color = "grey"),
        plot.background = element_blank(),
        plot.margin = margin(2,2,2,4,"cm"))
```

```{r eval=FALSE, include=FALSE}
anim = staticplot + transition_states(year, transition_length = 4, state_length = 1) +
  view_follow(fixed_x = T) +
  labs(title = "GDP per Year : {closest_state}", 
       subtitle = "Top 10 countries",
       caption = "GDP in Billions USD | Data Source: World Bank Data")
```

```{r eval=FALSE, include=FALSE}
library(gifski)

animate(anim, 200, fps = 20, width = 1200, height = 1000,
        renderer = gifski_renderer("gganim.gif"))
```