使用ECharts4R在单个图表上创建多个网格

使用ECharts4R在单个图表上创建多个网格,r,echarts,R,Echarts,我正在尝试创建一个包含四个小图表的图表,如以下链接中所示: 以下是尝试创建图表的脚本: df <- data.frame( x = 1:20, testing123 = runif(20, 10, 100), v = runif(20, 15, 100), w = runif(20, 1, 100), z = runif(20, 25, 75) ) df %>% e_charts(x) %>% e_y_axis(gridIndex = 0,

我正在尝试创建一个包含四个小图表的图表,如以下链接中所示:

以下是尝试创建图表的脚本:

df <- data.frame(
  x = 1:20, 
  testing123 = runif(20, 10, 100),
  v = runif(20, 15, 100),
  w = runif(20, 1, 100),
  z = runif(20, 25, 75)
)
df %>% 
  e_charts(x) %>% 
  e_y_axis(gridIndex = 0, min=0,max=100) %>% 
  e_y_axis(gridIndex = 1, min=0,max=100) %>% 
  e_y_axis(gridIndex = 2, min=0,max=100) %>%
  e_y_axis(gridIndex = 3, min=0,max=100) %>% 
  e_x_axis(gridIndex = 0, min=0,max=20) %>%
  e_x_axis(gridIndex = 1, min=0,max=20) %>%
  e_x_axis(gridIndex = 2, min=0,max=20) %>%
  e_x_axis(gridIndex = 3, min=0,max=20) %>% 
  e_grid(x= '7%',y='7%',width='38%',height='38%') %>%
  e_grid(x2= '7%',y='7%',width='38%',height='38%') %>%
  e_grid(x= '7%',y2='7%',width='38%',height='38%') %>%
  e_grid(x2= '7%',y2='7%',width='38%',height='38%') %>%
  e_line(serie = w, x_index = 0, y_index = 0) %>%
  e_line(serie = z, x_index = 1, y_index = 1) %>%
  e_line(serie = v, x_index = 2, y_index = 2) %>%
  e_line(serie = testing123, x_index = 3, y_index = 3) %>%
  e_tooltip(trigger = "axis") 
df%
e_图表(x)%>%
e_y_轴(网格索引=0,最小值=0,最大值=100)%>%
e_y_轴(网格索引=1,最小值=0,最大值=100)%>%
e_y_轴(网格索引=2,最小值=0,最大值=100)%>%
e_y_轴(网格索引=3,最小值=0,最大值=100)%>%
e_x_轴(网格索引=0,最小值=0,最大值=20)%>%
e_x_轴(网格索引=1,最小值=0,最大值=20)%>%
e_x_轴(网格索引=2,最小值=0,最大值=20)%>%
e_x_轴(网格索引=3,最小值=0,最大值=20)%>%
e_网格(x='7%,y='7%,宽度='38%,高度='38%)>%
e_网格(x2='7%',y='7%',宽度='38%',高度='38%)%>%
e_网格(x='7%',y2='7%',宽度='38%',高度='38%')%>%
e_网格(x2='7%',y2='7%',宽度='38%',高度='38%')%>%
e_线(系列=w,x_指数=0,y_指数=0)%>%
e_线(系列=z,x_指数=1,y_指数=1)%>%
e_线(系列=v,x_指数=2,y_指数=2)%>%
e_线(系列=测试123,x_指数=3,y_指数=3)%>%
e_工具提示(触发器=“轴”)
但产出并不像预期的那样:

三行“压缩”到一个窗格中,我希望每个窗格中只有一行


有人能帮忙吗?谢谢

从技术上讲,您可以使用echarts4r复制此功能,但并不建议这样做,因为代码会非常混乱

有一种比摆弄e_网格更方便的方法。下面是一个示例,不是因为我使用了相同的
名称
,所以它连接了工具提示和图例


图书馆(echarts4r)
df%
e_工具提示(触发器=“轴”)
p2%
e_线(serie=v,name=“common”)%>%
e_工具提示(触发器=“轴”)
p3%
e_线(serie=z,name=“common”)%%>%
e_工具提示(触发器=“轴”)
p4%
e_线(serie=testing123,name=“common”)%>%
e_工具提示(trigger=“axis”)%%>%
e#u connect(c(“图表1”、“图表2”、“图表3”)#将最后一个图表连接到所有其他图表
#这是一个在网格中显示图表的方便功能
e_排列(p1、p2、p3、p4,行=2,列=2)
下面将进一步解释