R Highcharter настроить легенду, чтобы показать только определенные значения - PullRequest
Новая
       32

R Highcharter настроить легенду, чтобы показать только определенные значения

1 голос
/ 06 марта 2020

Мне нужна легенда, чтобы показать имена кандидатов и их цвета, где интервал == 3. см. График здесь

Подстановка остановок df (stop [my.cols $ interval == 3] ])) работает для легенды, но также меняет цвета на карте. Мне нужно, чтобы цвета в каждом штате были одинаковыми, но я не хочу указывать имя кандидата более одного раза в легенде.

См. MWE ниже: 

library(highcharter)
library(usmap)
library(dplyr)

df <- usmap::statepop
df$interval <- sample(c(1,2,3), nrow(df), replace = T)
df$scaled <- sample(1:18, nrow(df), replace = T)

us_small <- download_map_data("countries/us/custom/us-small")


my.cols <- data.frame(
  interval = c(3,2,1),
  scaled = 1:18,
  ContractName = c(rep("Klobuchar",3),rep("Buttigieg",3),rep("Bloomberg",3),rep("Biden",3),rep("Sanders",3),rep("Warren",3)),
  hexes = c(  # GRAY: [
    '#dddddd',
    '#bbbbbb',
    '#888888',
    # PURPLE: [
    '#e8bbdc',
    '#b577a5' ,
    '#7c466e' ,
    # GREEN: [
    '#bbe8ae',
    '#88b57a',
    '#4e7641',
    # BLUE: [
    '#b5cacf',
    '#81b5c0',
    '#578b96' ,
    # RED: [
    '#f9adad',
    '#cf0000',
    '#9f0000',
    # more gray
    "#000000",
    "#696969",
    "#808080"
  ))

stops <- data.frame(
  name = my.cols$ContractName,
  scaled = 1:18,
  from = 0:17/17,
  color = toupper(my.cols$hexes),
  stringsAsFactors = FALSE)

df <- merge(df, stops, by = "scaled")

stops <- list_parse(stops) 




highchart() %>% 
  hc_add_series_map(us_small, df,
                    value = "from", joinBy = c("woe-name", "full"),
                    borderColor = "darkgrey"
                    ,dataLabels = list(enabled = TRUE
                                       ,format = "{point.properties.hc-a2}")) %>% 
  # hc_colorAxis(dataClasses = stops[my.cols$interval==3]) %>%
  hc_colorAxis(dataClasses = stops) %>%
  hc_legend(align = 'right') %>%
  hc_mapNavigation(enabled = FALSE)

Есть ли в hc_plotOptions что-то, что может помочь в настройке легенды?

Это решение скрывает повторяющиеся имена в легенде, но все же показывает их: R - highcharter - выборочные легенды на дисплее

1 Ответ

0 голосов
/ 07 марта 2020

Я могу установить начальное значение: 

set.seed(111)
df <- usmap::statepop
df$interval <- sample(c(1,2,3), nrow(df), replace = T)
df$scaled <- sample(1:18, nrow(df), replace = T)

Ваша подгруппа останавливается в соответствии с data.frame my.cols? Прежде чем это будет выглядеть так:

enter image description here

Надеюсь, я правильно понял, потому что не очень понятно, какие легенды вы хотите отобразить: 

highchart() %>% 
  hc_add_series_map(us_small, df,
                    value = "from", joinBy = c("woe-name", "full"),
                    borderColor = "darkgrey",
                    dataLabels = list(enabled = TRUE
                                       ,format = "{point.properties.hc-a2}")) %>% 
  hc_colorAxis(dataClasses = stops[my.cols$interval==3]) %>%
  hc_legend(align = 'right') %>%
  hc_mapNavigation(enabled = FALSE)

enter image description here

Это пакеты в моем сеансе, используемые для запуска этого: 

R version 3.6.1 (2019-07-05)

[...]

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] dplyr_0.8.3       usmap_0.5.0       highcharter_0.7.0
...