У меня есть следующая функция:
library(highcharter)
hchart(
newdata,
"bar",
hcaes(
x = Gender,
group = is_churner,
y = Percent,
label = Nominal,
color = color
)
) %>%
hc_title(text = "") %>%
hc_yAxis(
title = list(text = ""),
labels = list(format = "{value}")
) %>%
hc_xAxis(title = list(text = "")) %>%
hc_tooltip(
pointFormat = "
Percent: {point.y:,.0f}%<br>
Nominal: {point.label:,.0f}<br>"
)
Функция принимает фрейм данных, например:
newdata <- data.frame(
Gender = c(rep("Female", 2), rep("Male", 2)),
is_churner = c("Active", "Churner", "Active", "Churner"),
Nominal = c(7267L, 933L, 9767L, 1313L),
Percent = c(42.7, 41.5, 57.3, 58.5),
color = c("green", "red", "green", "red")
) %>%
dplyr::group_by(is_churner)
Один из столбцов - цвет должен отображаться наЦветовой аргумент функции hchart.Насколько я помню, это то, что раньше работало.
Теперь, однако, я получаю действительно уродливый график.
Ни цвета столбцов не соответствуют столбцу цветов, ни легенда ниже (то, что представляют цвета) окрашены соответственно,
Что я делаю не так?