e_facet 在 echarts4r 问题中使用分组数据

我真的很喜欢这个包提供的可能性，并且想在一个闪亮的应用程序中使用它。然而我正在努力重新创建从 ggplot 到 echarts4r 的情节

  library(tidyverse)
  library(echarts4r)

  data = tibble(time = factor(sort(rep(c(4,8,24), 30)), levels = c(4,8,24)),
                dose = factor(rep(c(1,2,3), 30), levels = c(1,2,3)),
                id = rep(sort(rep(LETTERS[1:10], 3)),3),
                y = rnorm(n = 90, mean = 5, sd = 3))

这是我想要重新创建的情节：

ggplot(data = data, mapping = aes(x = time, y = y, group = id)) + 
geom_point() + 
geom_line() + 
facet_wrap(~dose)

我遇到的问题是使用 echarts4r 中的 ggplot 语法中的 group = id 对数据进行分组。我的目标是使用 group_by() 对分组数据进行 e_facet，但是我无法（或不知道如何）添加一个组来使用 geom_line() 连接点

data %>% 
group_by(dose) %>% 
e_charts(time) %>%
e_line(y) %>%
e_facet(rows = 1, cols = 3)

你可以这样做echarts4r.

据我所知，这项工作有两种方法，一种使用e_list。不过，我认为这种方法会使事情变得比实际需要的更加复杂。

知道这一点可能会有用e_facet, e_arrange, and e_grid全部属于echarts grid功能——你知道，有点像一切ggplot2确实属于基础 R 的范围grid.

I used group_split from dplyr and imap from purrr创建多面图。你会注意到我没有使用e_facet由于其自身的限制。

group_split可与基本 R 互换split两者都可以使用。

I used imap这样我就可以映射这些组并享受使用索引的好处。如果您熟悉使用enumerate在Python中for声明或forEach在 Javascript 中，这种工作方式是相同的。在地图调用中，j是一个数据框；k是一个索引值。我附加了所需的附加参数e_arrange，然后做了情节。

library(tidyverse) # has both dplyr and purrrrrr (how many r's?)
library(echarts4r)

data %>% group_split(dose) %>% 
  imap(function(j, k) {
    j %>% group_by(id) %>% 
      e_charts(time, name = paste0("chart_", k)) %>% 
      e_line(y, name = paste0("Dose ", k)) %>%
      e_color(color = "black")
  }) %>% append(c(rows = 1, cols = 3)) %>% 
  do.call(e_arrange, .)