Я пытаюсь создать облако слов с пакетом Highcharter R (на основе библиотеки Highcharts), чтобы отображать две категории настроений (положительное и отрицательное) в одном слове.
Дело в том, что я тоже хочу показать легенду. Моя проблема в том, что когда я показываю легенду, слова не совпадают. И когда мне нужно было правильно отобразить данные, я не смог показать легенду.
Самый простой случай, показывающий мою проблему, - это следующий случай:
library(tidyverse)
library(highcharter)
positive <-
c(
"tranquilo",
"tranquila",
"nova" ,
"burocratico" ,
"bom" ,
"assertivo" ,
"rapido" ,
"transparente"
)
negative <-
c(
"trabalhoso" ,
"conduzida" ,
"passa" ,
"congelada" ,
"pessima" ,
"moroso" ,
"pouco",
"opinar" ,
"passado" ,
"afastado"
)
df <- list(
tibble("term" = positive,
"sentiment" = "positive"),
tibble("term" = negative,
"sentiment" = "negative")
) %>% bind_rows()
df %>%
hchart(
"wordcloud",
hcaes(name = "term", group = "sentiment"),
showInLegend = TRUE,
colorByPoint = FALSE
) %>%
hc_colors(c("#E0362C", "#189D3E"))
Результат это:
![](https://i.stack.imgur.com/LuLCT.png)
Если я изменю параметр "group" на "color" hcaes(name = "term", color = "sentiment")
, то получаю:
Заранее спасибо. Владемир.
PS: Я думаю, что решение в JS также может помочь мне.