Проблема с цветами панели Highcharter

У меня есть такая функция:

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. Насколько я помню, раньше это работало.

Однако теперь я получаю действительно некрасивый график.

Ни цвета полосок не соответствуют цветному столбцу, ни легенда ниже (которую представляют цвета) не окрашены соответствующим образом.

Что я делаю неправильно?

введите здесь описание изображения


r highcharts r-highcharter
person Prometheus    schedule 16.02.2019    source источник

Ответы (2)


arrow_upward
3
arrow_downward

Я считаю, что цвет должен вызываться отдельно вне hcaes, но ваш подход кажется более интуитивным / разумным, так что жаль, что он не работает. Следующие работы:

hchart(
  newdata,
  "bar",
  hcaes(
    x = Gender,
    group = is_churner,
    y = Percent,
    label = Nominal
  ), color = c("green", "red")
) %>%
  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>"
  )

Также работает следующее:

hchart(
  newdata,
  "bar",
  hcaes(
    x = Gender,
    group = is_churner,
    y = Percent,
    label = Nominal
  )
) %>%
  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>"
  ) %>% 
  hc_colors(c("green", "red"))

Я удалил цвет из hcaes и добавил его вместо hc_colors.

person Kim    schedule 17.02.2019

arrow_upward
0
arrow_downward

У меня была такая же проблема, в моем случае оказалось, что мои файлы css отменяли цвета, которые я указал в цвете hchart.

Когда я удалил соответствующие строки в файлах css, команда цвета работала так, как вы изначально указали. Вам не нужно вызывать его отдельно за пределами hcaes.

person user10781624    schedule 21.08.2019