```r
ggplot(cryptoart, aes(x = Platform, y = End.Price)) + geom_boxplot()+theme(axis.text.x = element_text(angle = 45))+
  transition_states(
    Times.Sold,
    transition_length = 2,
    state_length = 1
  ) +
  enter_fade() + 
  exit_shrink() +
  ease_aes('sine-in-out')
```