Блог

Я хотел бы добавить метку диапазона осей на свой график, как мы видим на этом сайте, с «Низким, средним и высоким»: https://www.fusioncharts.com/dev/chart-guide/gauges-and-widgets/linear-gauge

Здесь вы можете запустить этот пример:

 ech <- 3.1
min <- 2.3
q1 <- 3.2
med <- 3.4
q3 <- 3.7
max <- 4.2

fig <- plot_ly(
  type = "indicator",
  mode = "number gauge delta",
  value = ech,
  # domain = list(x = c(0, 1), y= c(0, 1)),
  # title = list(text = "<b>Profit</b>"),
  delta = list(reference = med),
  gauge = list(
    shape = "bullet",
    axis = list(range = list(min, max)),
    bar = list(color = "#00000000"), #couleur transparent pour ne pas afficher la valeur
    threshold = list(
      line = list(color = "blue", width = 2),
      thickness = 1,
      value = ech),
    steps = list(
      list(range = c(min, (min (min q1)/2)/2), color = "#A50026"),
      list(range = c((min (min q1)/2)/2, (min q1)/2), color = "#D73027"),
      list(range = c((min q1)/2, q1), color = "#F46D43"),
      list(range = c(q1, (q1 med)/2), color = "#FDAE61"),
      list(range = c((q1 med)/2, med), color = "#FEE08B"),
      list(range = c(med, (med q3)/2), color = "#D9EF8B"),
      list(range = c((med q3)/2, q3), color = "#A6D96A"),
      list(range = c(q3, (q3 max)/2), color = "#66BD63"),
      list(range = c((q3 max)/2, (max (q3 max)/2)/2), color = "#1A9850"),
      list(range = c((max (q3 max)/2)/2, max), color = "#006837"))),
  height = 100, width = 600) 
fig <- fig %>%
  layout(margin = list(l= 100, r= 10))
fig
 

Как вы можете видеть в моем коде, например, в диапазоне от min до q1 я хотел бы добавить метку «Q1».

Заранее большое спасибо.