सारांश के लिए लिंक्ड व्यूज़

# SharedData object allowing selection of observations
shared_obs <- SharedData$new(lv2000)

# Scatterplot of to_thrust against leo_capacity
scatter <- shared_obs %>%
  plot_ly(x = ~leo_capacity, y = ~to_thrust) %>%
  add_markers()

# Create a boxplot of to_thrust
box <- shared_obs %>%
  ___(y = ___) %>%
  ___(name = "overall")

# Link the two plots
subplot(___, ___) %>%
  ___() %>%
  ___(on = ___)