R Highcharter：带有条件颜色的极地图

Question

我正在使用Highcharter的极地图表，并想知道它是否有根据条件更改颜色的功能。我正在使用该图表来查看预算与支出。当支出小于预算时，我希望该列为绿色。当支出大于预算时，我希望该列为红色。这个可能吗？

对于代码示例中的'物流'和'IT＆电信'支出将是绿色，所有其他支出类别将是红色。

答案需要是动态的，因为超出或低于计划的情况会不断变化。

以下是代码的简化版本。

library (shiny)
library (highcharter)

hc <- highchart() %>% 
  hc_chart(polar = TRUE) %>% 
  hc_title(text = "Budget vs Spending") %>% 
  hc_xAxis(categories = c("Energy", "Facilties", "IT & Telecom",
                          "Logistics", "Office Products", "Plant Consumables",
                          "Temp Labor", "Travel", "Other"),
           tickmarkPlacement = "on",
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = "polygon",
           lineWidth = 0,
           min = 0) %>% 
  hc_series(
    list(
      name = "Spend",
      data = c(50000, 39000, 42000, 31000, 26000, 14000, 26000, 26000, 26000),
      pointPlacement = "on",
      type = "column"
    ),
    list(
      name = "Budget",
      data = c(43000, 19000, 60000, 35000, 17000, 10000,10000,10000,10000),
      pointPlacement = "on",
      type = "line"
    )
  )

hc

- Kevin

---

我对R不是很了解，但在Highcharts JS中，我会将负责更新的代码放在chart.events.render属性中：http://jsfiddle.net/kkulig/88mb6mq8/。我使用`redrawEnabled`标志来防止由于在此事件中重新绘制图表（`render`自己调用`redraw`事件）而导致的无限递归循环。 - Kamil Kulig

Answer 1

您想将colorByPoint设置为TRUE，然后使用ifelse来设置colors，如下所示：

library(shiny)
library(highcharter)
library(tidyverse)
hc <- highchart() %>% 
  hc_chart(polar = TRUE) %>% 
  hc_title(text = "Budget vs Spending") %>% 
  hc_xAxis(categories = c("Energy", "Facilties", "IT & Telecom",
                          "Logistics", "Office Products", "Plant Consumables",
                          "Temp Labor", "Travel", "Other"),
           tickmarkPlacement = "on",
           lineWidth = 0) %>% 
  hc_yAxis(gridLineInterpolation = "polygon",
           lineWidth = 0,
           min = 0) %>% 
  hc_series(
    list(
      name = "Spend",
      data = c(50000, 39000, 42000, 31000, 26000, 14000, 26000, 26000, 26000),
      pointPlacement = "on",
      colorByPoint = TRUE,
      type = "column",
      colors = ifelse(c(50000, 39000, 42000, 31000, 26000, 14000, 26000, 26000, 26000) > c(43000, 19000, 60000, 35000, 17000, 10000,10000,10000,10000),"#F00","#0F0")
    ),
    list(
      name = "Budget",
      data = c(43000, 19000, 60000, 35000, 17000, 10000,10000,10000,10000),
      pointPlacement = "on",
      type = "line"
    )
  )

hc

希望这对您有所帮助。

- Bertil Baron