the dataset is

I want to get something like this

I am not sure what to put in aes() argument

p <- ggplot( data = x , aes(year, y = ??  )  
  geom_bar( stat = "identity" )  
  transition_states(year)  
  labs(title = "abc")  
  coord_cartesian(ylim = c(5500 , 9000))  
  xlab("")  
  ylab("hgt")
animate(p, nframes = 450, fps=16)

CodePudding user response：

First you need to reshape your data using melt. After that, you can set transition_states to show different years of the barplot. To show the year in the title you can use {next_state}. You can use the following code:

library(tidyverse)
library(gganimate)
library(reshape)

df_melted <- melt(df, id = c("ID", "year"))

p <- df_melted %>%
  ggplot(aes(x = variable, y = value, fill = variable))  
  geom_bar(stat = "identity" )  
  transition_states(
    year,
    transition_length = 2,
    state_length = 1
  )  
  ease_aes('sine-in-out')  
  labs(title = "Heighest 3 peaks in Year: {next_state}")  
  xlab("")  
  ylab("hgt")
p  

Output: