Добрый день,
У меня есть bb_linechart, которая показывает за неделю (ось x) за год (переменная группировки) количество единиц (ось y). Цель графика состоит в том, чтобы сделать его легко видимым, как количество единиц перемещается во времени (легко сравнивать с прошлой неделей, оглядываясь на ось x на той же линии, и легко сравнивать с той же неделей в другие годы, глядя на различные линии в одной и той же точке на оси х).
Теперь давайте предположим, что за одну неделю произошел большой спад, важно знать, почему это произошло, потому что мы можем сравнивать другие точки данных с этой точкой год спустя не помню точно, почему этот спад произошел. Я бы хотел, чтобы во всплывающей подсказке был дополнительный столбец, в котором указана причина отклонения, если указана причина. Есть ли возможность сделать это с помощью Billboarder?
Таблица данных, которую я использую, выглядит следующим образом:
structure(list(week = c(5, 6, 7, 8, 9, 10), `2019` = c(NA_character_,
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_
), `2020` = c("847.93", "814.87", "850.62", "1098.77", "1012.03",
"1182.52")), row.names = c(NA, -6L), class = c("data.table",
"data.frame"), .internal.selfref = <pointer: 0x000002508fa21ef0>, sorted = "week")
week 2019 2020
1: 5 <NA> 847.93
2: 6 <NA> 814.87
3: 7 <NA> 850.62
4: 8 <NA> 1098.77
5: 9 <NA> 1012.03
6: 10 <NA> 1182.52
structure(list(week = c(53, 54, 55, 56, 57, 58), `2019` = c("486.41",
"1050.26", "1050.86", "703.55", NA, NA), `2020` = c(NA_character_,
NA_character_, NA_character_, NA_character_, NA_character_, NA_character_
)), row.names = c(NA, -6L), class = c("data.table", "data.frame"
), .internal.selfref = <pointer: 0x000002508fa21ef0>, sorted = "week")
week 2019 2020
1: 53 486.41 <NA>
2: 54 1050.26 <NA>
3: 55 1050.86 <NA>
4: 56 703.55 <NA>
5: 57 <NA> <NA>
6: 58 <NA> <NA>
Код, который я использую для моего объекта Billboarder, выглядит следующим образом:
billboarder() %>%
bb_linechart(dt.graph) %>%
bb_y_grid(show = TRUE) %>%
bb_x_axis(tick = list(fit = TRUE),
label = list(text = "Week", position = "outer-left")) %>%
bb_y_axis(label = list(text = "Units (x1.000)", position = "outer-middle"),
min = 0) %>%
bb_legend(position = "inset", inset = list(anchor = "top-right"))
Часть графика теперь будет выглядеть следующим образом:
Как только будут собраны дополнительные данные, в строке появится строка всплывающая подсказка за каждый год. На 9 неделе 2020 года мы увидели снижение, мы хотим указать причину снижения, которая затем будет отображаться во всплывающей подсказке следующим образом:
