library(ggplot2) library(gganimate)

1. Create the dataset

data <- data.frame( year = c(1992, 2000, 2005, 2010, 2015, 2017, 2021, 2023, 2024, 2025, 2026), rate = c(5.0, 8.2, 8.4, 16.3, 20.2, 23.0, 46.0, 54.8, 126.7, 153.4, 155.6) )

2. Build the plot

p <- ggplot(data, aes(x = year, y = rate)) + geom_line(color = “darkblue”, size = 1.2) + geom_point(size = 3) + theme_minimal() + labs(title = ‘USD to ETB Exchange Rate: {frame_along}’, y = ‘ETB per 1 USD’, x = ‘Year’) + transition_reveal(year)

3. Render the animation

animate(p, renderer = gifski_renderer())