Сгруппированные категории для карты высокой температуры в R - PullRequest
Новая
       45

Сгруппированные категории для карты высокой температуры в R

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

Я хотел бы создать тепловую карту , используя пакет highercharter и набор данных gapminder с открытым исходным кодом в R. Однако у меня возникают трудности при создании оси с группировкой этикетки . Вот код для создания тепловой карты из документации highcharter: 

nyears <- 5
df <- expand.grid(seq(12) - 1, seq(nyears) - 1)
df$value <- abs(seq(nrow(df)) + 10 * rnorm(nrow(df))) + 10
df$value <- round(df$value, 2)
ds <- list_parse2(df)

hc <- highchart() %>%
  hc_chart(type = "heatmap") %>%
  hc_title(text = "Simulated values by years and months") %>%
  hc_xAxis(categories = month.abb) %>%
  hc_yAxis(categories = 2016 - nyears + seq(nyears)) %>%
  hc_add_series(name = "value", data = ds)
hc_colorAxis(hc, minColor = "#FFFFFF", maxColor = "#434348")

Теперь предположим, что у меня есть следующие данные: 

for (package in c('tidyverse', 'gapminder')) {
  if (!require(package, character.only=T, quietly=T)) {
    install.packages(package)
    library(package, character.only=T)
  }
}

data(gapminder)
gapminder <- select(gapminder, continent, country, year, gdpPercap)

И вот моя попытка: 

gapminder <- select(gapminder, continent, country, year, gdpPercap)
gs <- list_parse2(gapminder)

categories_grouped <- gapminder %>%
  group_by(name = continent) %>% 
  do(categories = array(.$country)) %>% 
  list_parse()

highchart() %>%
  hc_chart(type = "heatmap") %>%
  hc_xAxis(categories = categories_grouped) %>%
  hc_yAxis(categories = gapminder$year) %>%
  hc_add_series(name = 'gdpPercap', data = gs)

Есть идеи, где я ошибаюсь?

1 Ответ

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

Полагаю, вы начали свой код с в этом примере . Две вещи в списке категорий-групп:

  1. вам нужно отображение 1-к-1, без избыточности, если вы посмотрите на пример, он начался с кадра данных отдельного производителя класса.

  2. подэлементы списка должны называться «имя» и «категории»

Итак, сначала я выбираю случайным образом 20 стран для построения так, чтобы это было ясно видно: 

library(gapminder)
library(highcharter)
library(dplyr)
set.seed(100)
x_country = sample(gapminder$country,20)

dat<- select(gapminder, continent, country, year, gdpPercap) %>%
filter(country %in% x_country) 

dat=droplevels(dat)

Теперь я создаю категории, сгруппированные для сгруппированной оси X: 

categories_grouped <- dat %>%
  distinct(continent,country) %>% 
  rename( name =continent) %>%
  group_by(name) %>%
  do(categories = .$country) %>% 
  list_parse()

Теперь я строю график, я редко использовал список, поэтому я go с настройкой ниже, должно быть в порядке: 

hc <-highchart() %>%
hc_yAxis(categories = dat$year) %>%
hc_xAxis(categories = categories_grouped) %>%
hc_add_series(data = dat,type = 'heatmap',hcaes(x=country,y=factor(year),value=gdpPercap))

hc_colorAxis(hc, minColor = "#FFFFFF", maxColor = "#434348")

enter image description here

...