在Highchart Choropleth中更改顏色軸

Question

我對R上的地圖進行可視化並不是很新，我試圖改變運動中的傳奇。
我的代碼下

現有結果

ds <- a21 %>% 
    group_by(fips) %>% 
    do(item = list(
    fips = first(.$fips), 
    sequence = .$freq, 
    value = first(.$freq))) %>% 
    .$item 

hc <- highchart(type = "map") %>% 
    hc_add_series(data = ds, 
       name = "complaints", 
       mapData = uscountygeojson, 
       joinBy = "fips", 
       borderWidth = 0.01) %>% 
    hc_colorAxis(stops = color_stops()) %>% 
    hc_title(text = "patient complaints") %>% 
    hc_legend(layout = "vertical", reversed = TRUE, 
      floating = TRUE, align = "right") %>% 
    hc_add_theme(hc_theme_smpl()) %>% 
    hc_motion(
    enabled = TRUE, 
    axisLabel = "year", 
    labels = sort(unique(a21$year)), 
    series = 0, 
    updateIterval = 50, 
    magnet = list(
     round = "floor", 
     step = 0.1 
    ) 
) 

截圖：

截至目前我看到[R自動創建頻率colorbins

我想改變這我的數據框中的一組自定義值。

我的數據幀的一個片段是在

a21: 

     year fips freq   q 
1  2004 1001  3 1st Quantile 
2  2005 1001  0 1st Quantile 
3  2006 1001  4 1st Quantile 
4  2007 1001  0 1st Quantile 
5  2008 1001  0 1st Quantile 
6  2009 1001  0 1st Quantile 

我想q列的顏色軸標籤

Answer 1

我認爲你需要q列有顏色（可能在另一列關聯數據幀），然後將這些顏色與color_stops函數結合使用。

例如：

library(dplyr) 
library(highcharter) 
mapdata <- get_data_from_map(download_map_data("countries/us/us-all")) 

set.seed(1234) 

data_fake <- mapdata %>% 
    select(code = `hc-a2`) %>% 
    mutate(value = 1e5 * abs(rt(nrow(.), df = 10))) 

colors <- c("red", "blue", "green" , "yellow") 

hcmap("countries/us/us-all", data = data_fake, value = "value", 
     joinBy = c("hc-a2", "code"), name = "Fake data", 
     dataLabels = list(enabled = TRUE, format = '{point.name}'), 
     borderColor = "#FAFAFA", borderWidth = 0.1, 
     tooltip = list(valueDecimals = 2, valuePrefix = "$", valueSuffix = 
     "USD"))%>% 
    hc_colorAxis(minColor = "blue", maxColor = "red", 
    stops = color_stops(n=length(colors), colors = colors))