echarts4r R package: всплывающая подсказка на сложенном графике с использованием e_grid - PullRequest
Новая
       27

echarts4r R package: всплывающая подсказка на сложенном графике с использованием e_grid

0 голосов
/ 14 февраля 2020

Как получить всплывающую подсказку с триггером оси для всех графиков в сетке?

С сеткой диаграмм 3 x 1 (код приведен ниже), я хочу навести курсор мыши на любую диаграмму, чтобы всплывающая подсказка покрывала сразу все три диаграммы и показывала название серии (не только имя группы). Grid of charts

df <- data.frame(
  g = rep(c(rep("A", 10), rep("B", 10)), 2),
  x = rep(1:10, 2), 
  y1 = runif(20, 1, 100),
  y2 = runif(20, 25, 75),
  y3 = runif(20, 1, 10), 
  name1 = "y1",
  name2 = "y2",
  name3 = "y3"
)

df %>%
  group_by(g) %>%
  #filter(g == "A") %>%
  e_charts(x, height = "1000px") %>% 
  e_line(y1, bind = "name1") %>% 
  e_line(y2, bind = "name2", x_index = 1, y_index = 1) %>% 
  e_line(y3, bind = "name3", x_index = 2, y_index = 2) %>% 
  e_grid(height = "23%") %>% 
    e_grid(height = "23%", top = "33%", index = 1) %>% 
    e_grid(height = "23%", top = "66%", index = 2) %>% 
  e_y_axis(gridIndex = 1, index = 1) %>% # put x and y on grid index 1
  e_x_axis(gridIndex = 1, index = 1) %>%
  e_y_axis(gridIndex = 2, index = 2) %>% # put x and y on grid index 1
  e_x_axis(gridIndex = 2, index = 2) %>%
  e_tooltip(
    trigger = "axis"
    # , formatter = htmlwidgets::JS("
    #     function(params){
    #       return(
    #         'name: ' + params.name + '<br/>' +
    #         'param0: ' + params.value[0] + '<br/>' +
    #         'param1: ' + params.value[1] + '<br/>'
    #       )
    #     }")
  ) %>%
  e_datazoom(x_index = c(0, 1, 2))
...