ggplot(gapminder::gapminder) +
  aes(gdpPercap, lifeExp) +
  geom_point(aes(size=pop,
                 color=continent),
             alpha=0.7) +
  scale_size(range=c(2, 12), guide=NULL) +
  scale_x_log10() +
  theme(legend.position=c(1, 0),
        legend.justification=c(1, 0)) +
  gganimate::transition_time(year) +
  gganimate::ease_aes("linear") +
  labs(title="Year: {frame_time}")

ggplot(gapminder::gapminder) +
  aes(gdpPercap, lifeExp) +
  geom_point(aes(size=pop,
                 color=continent),
             alpha=0.7) +
  scale_size(range=c(2, 12), guide=NULL) +
  scale_x_log10() +
  theme_gray(base_size=10) +
  aes(frame=year, text=country) -> p
plotly::ggplotly(p) |>
  plotly::layout(legend=list(
    x=1, y=0, xanchor="right"))