具有R中的分類變量的Highcharter地圖

Question

我試圖在R中使用highcharts wrapper highcharter來創建一系列地圖。將狀態或國家顏色繪製爲連續變量的地圖可以很好地工作，但是，我在將狀態顏色繪製爲連續變量時遇到了一些麻煩。 （基本上，我想它看起來像this）。

我試過了我能想到的一切，似乎沒有任何工作。這是一個虛擬數據的例子。假設我想將A類中的狀態顯示爲紅色，將B類顯示爲黃色，將C類顯示爲藍色。

library("dplyr") 
library('highcharter') 
library("viridisLite") 

data(usgeojson) 

## Create data frame with letter categories, numerical categories, and state abbreviations 

categories <- c("A", "A", "A", "A", "A", "A", "C", "A", "A", "A", "A", "A", 
"A", "A", "A", "A", "A", "A", "A", "A", "A", "A", "C", "A", "A", "A", "B", 
"B", "B", "B", "B", "C", "B", "B", "B", "B", "B", "B", "B", "B", "B", "B", 
"B", "B", "B", "C", "B", "B", "B", "B") 

states <- c("AL", "AK", "AZ", "AR", "CA", "CO", "CT", "DE", "FL", "GA", "HI", 
"ID", "IL", "IN", "IA", "KS", "KY", "LA", "ME", "MD", "MA", "MI", "MN", "MS", 
"MO", "MT", "NE", "NV", "NH", "NJ", "NM", "NY", "NC", "ND", "OH", "OK", "OR", 
"PA", "RI", "SC", "SD", "TN", "TX", "UT", "VT", "VA", "WA", "WV", "WI", "WY") 

numbers <- c("1", "1", "1", "1", "1", "1", "3", "1", "1", "1", "1", "1", "1", 
"1", "1", "1", "1", "1", "1", "1", "1", "1", "3", "1", "1", "1", "2", "2", 
"2", "2", "2", "3", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", "2", 
"2", "2", "3", "2", "2", "2", "2") 

data <- data.frame(categories, states, numbers) 

## Convert abbreviations to state names for highcharter 
data$state_full <- state.name[match(data$state, state.abb)] 

## If we plot these data using the numerical categories, the colors are on a scale 
highchart(type = "map") %>% 
hc_add_series_map(map = usgeojson, 
       df = data, 
       joinBy = c("woename", "state_full"), 
       value = "numbers") 

## Plotting by adding each category individually ends up with the each new map 
## overwriting the ones before it. 

cat_A <- data[data$categories == "A", ] 
cat_B <- data[data$categories == "B", ] 
cat_C <- data[data$categories == "C", ] 

highchart(type = "map") %>% 
hc_add_series_map(map = usgeojson, 
       df = cat_A, 
       joinBy = c("woename", "state_full"), 
       value = "numbers") %>% 
hc_add_series_map(map = usgeojson, 
       df = cat_B, 
       joinBy = c("woename", "state_full"), 
       value = "numbers") %>% 
hc_add_series_map(map = usgeojson, 
       df = cat_C, 
       joinBy = c("woename", "state_full"), 
       value = "numbers") 

這顯然可以在highchart中工作，但我似乎無法得到它在highcharter工作。

任何輸入，非常感謝。

謝謝！

Answer 1

第三個系列中沒有數據的狀態顯示爲灰色狀態，並且覆蓋了以前系列的數據。您可以將allAreas設置爲false以防止發生此情況。

此外，colorAxis需要獲得最大設置，因爲它僅針對第一個系列自動計算 - the issue reported。

工作的代碼（你的代碼後運行 - 類別設置後）：

highchart(type = "map") %>% 
hc_plotOptions(series = list(allAreas = F)) %>% 
hc_colorAxis(max = 3) %>% 
hc_add_series_map(map = usgeojson, 
       df = cat_A, 
       joinBy = c("woename", "state_full"), 
       value = "numbers") %>% 
hc_add_series_map(map = usgeojson, 
       df = cat_B, 
       joinBy = c("woename", "state_full"), 
       value = "numbers") %>% 
hc_add_series_map(map = usgeojson, 
       df = cat_C, 
       joinBy = c("woename", "state_full"), 
       value = "numbers") 

Answer 2

你只需要複製你想要的例子。

cat_A <- data %>% filter(categories == "A") 
cat_B <- data %>% filter(categories == "B") 
cat_C <- data %>% filter(categories == "C") 

map <- download_map_data("countries/us/us-all") 

hc <- highchart(type = "map") %>% 
    hc_plotOptions(map = list(
    allAreas = FALSE, 
    joinBy = c("hc-a2", "states"), 
    mapData = map 
)) %>% 
    hc_add_series(name = "A", data = cat_A, color = "#A1A1A1") %>% 
    hc_add_series(name = "B", data = cat_B, color = "#46BEC8") %>% 
    hc_add_series(name = "C", data = cat_C, color = "#0000CD") 

hc 

其他替代：

series <- data %>% 
    group_by(name = categories) %>% 
    do(data = list_parse(select(., states))) %>% 
    ungroup() %>% 
    mutate(color = c("red", "darkred", "pink")) 

series 

highchart(type = "map") %>% 
    hc_plotOptions(map = list(
    allAreas = FALSE, 
    joinBy = c("hc-a2", "states"), 
    mapData = map 
)) %>% 
    hc_add_series_list(series)