अपने HPI एनीमेशन को बेहतर बनाएँ

# Polish the axis titles and log-transform the x-axis
us_economy %>%
  plot_ly(x = ~gdp, y = ~house_price) %>%
  add_markers(
    size = ~population, color = ~region, 
    frame = ~year, ids = ~state,
    marker = list(sizemode = "diameter")
  ) %>%
  layout(
    ___,
    ___
  )