如何为echarts4r中的每个值设置固定颜色？

Question

我想绘制一个饼图并给每个值一个固定的颜色。给e_color() 函数一个命名列表不幸的是不起作用。有什么建议吗？

library(tibble)
library(echarts4r)

tibble(class=c("A", "B"), n=c(34,12)) %>%
e_charts(class) %>%
e_pie(n) %>%
e_color(color = c("A" = "red", "B" = "yellow"))

注意：我在闪亮的应用程序中使用饼图，其中class 的值可以根据用户输入采用不同的值。有时只出现 A 类，有时出现 A、B、C 等，因此class 的不同值的颜色应始终保持相同。

Answer 1

这应该可以工作

tibble(class=c("A", "B"), n=c(34,12)) %>%
e_charts(class) %>%
e_pie(n) %>%
e_color(color = c("red", "yellow"))

编辑：您可以为每个类创建一个带有颜色的数据框，并根据类的值获得固定颜色

df_colours <- data.frame(class = LETTERS[1:4],
                         colours = c("red", "yellow", "blue", "green"))

df <- tibble(class=c("A", "B"), n=c(34,12))

colour <- df_colours %>%
  filter(class %in% df$class) %>%
  select(colours) %>%
  unlist() %>% 
  unname()


df %>%
  e_charts(class) %>%
  e_pie(n) %>%
  e_color(color = colour)