การเพิ่มเมนูดรอปดาวน์

# Create a shared data object keyed by state
state_data <- SharedData$new(us2017, ___ = ___, ___ = ___)

# Enable indirect selection by state
state_data %>%
  plot_ly(x = ~home_owners, y = ~house_price, hoverinfo = "text", text = ~state) %>%
  add_markers(size = ~population, marker = list(sizemode = "diameter")) %>%
  ___(___ = ___)