การเพิ่มสไลเดอร์

shared_us <- SharedData$new(us2017)
p17 <- shared_us %>%
  plot_ly(x = ~home_owners, y = ~house_price, 
          color = ~region, height = 400) %>%
  add_markers() %>%
  layout(xaxis = list(title = "Home ownership (%)"), 
         yaxis = list(title = "HPI"))
  
# add a slider filter for each axis below the scatterplot
___(
  ___(p17,
      ___(id = "price",  label = ___,  sharedData = ___,  column = ___),
      ___(id = "owners",  label = ___,  sharedData = ___, column = ___)
  )
)