example_effect_plotly.R

#' @examples
#' library(plotly)
#' plot_ly(z, x = ~x, y = ~estimate) |>
#'   add_fan(sd = ~sd, text = ~display, hoverinfo = "text") |>
#'   add_classification(lcl = ~lcl, ucl = ~ucl, threshold = 1) |>
#'   layout(
#'     shapes = reference_shape(threshold = 1),
#'     annotations = reference_text(threshold = 1)
#'   )
#' plot_ly(z, x = ~x, y = ~estimate) |>
#'   add_fan(sd = ~sd, step = 0.1, text = ~display, hoverinfo = "text") |>
#'   add_classification(
#'     lcl = ~lcl, ucl = ~ucl, threshold = 1, detailed = FALSE
#'    ) |>
#'   layout(
#'     shapes = reference_shape(threshold = 1, line = TRUE),
#'     annotations = reference_text(threshold = 1)
#'    )
#' plot_ly(z, x = ~x, y = ~estimate) |>
#'   add_fan(sd = ~sd, step = 0.2, text = ~display, hoverinfo = "text") |>
#'   add_classification(
#'     lcl = ~lcl, ucl = ~ucl, threshold = 1, signed = FALSE
#'   ) |>
#'   layout(shapes = reference_shape(threshold = 1))
#' plot_ly(z, x = ~x, y = ~estimate) |>
#'   add_fan(sd = ~sd, step = 0.3, text = ~display, hoverinfo = "text") |>
#'   add_classification(
#'     lcl = ~lcl, ucl = ~ucl, threshold = 1, detailed = FALSE, signed = FALSE
#'   ) |>
#'   layout(shapes = reference_shape(threshold = 1, line = TRUE))
#'
#' # trend
#' plot_ly(data = trend, x = ~year, y = ~index) |>
#'   add_fan(sd = ~sd, text = ~display, hoverinfo = "text") |>
#'   add_classification(sd = ~sd, threshold = th) |>
#'   layout(
#'     shapes = reference_shape(threshold = th, reference = ref),
#'     annotations = reference_text(threshold = th, reference = ref)
#'   )