echarts4r添加多个Xaxis标签，具有重复的值

Question

我想使用echarts4r绘制线路图，Xaxis的标签需要具有重复的值。 我对Echarts4r的包装为0.3.2。

我的代码如下：

library(echarts4r)
library(magrittr)
library(data.table)

dt <- data.table(
  x_label = c('A', 'A', 'A', 'D', 'D', 'M', 'A'),
  x_value = c('a', 'b', 'c', 'd', 'e', 'f', 'g'),
  y = 8:14
)

p <- e_chart(dt, x_value)
p <- e_x_axis(p, show = FALSE, index = 0, position = 'top', data = purrr::map(seq_len(nrow(dt)), ~{
  list(value = dt[.x, x_value])
}))   # The show argument FALSE can not be worked 

p <- e_line_(p, 'y', x_index = 0)

p <- e_x_axis(p, show = TRUE, position = 'bottom', data = purrr::map(seq_len(nrow(dt)), ~{
  list(value = dt[.x, x_label])
}), index = 1)
p <- e_line_(p, 'y', x_index = 1)
p

但是顶部的Xaxis标签不能隐藏，我不知道为什么。 是否有人告诉我如何在具有重复值的线图中自定义Xaxis的标签，

或者我不知道如何将此选项转换为R代码：

option = {
  title: {
    text: 'ECharts entry example'
  },
  tooltip: {},
  legend: {
    data:['Sales']
  },
  xAxis: [
    {
        position: "bottom",
        data: ["shirt","cardign","chiffon shirt","pants","heels","socks"]
    },
    {
        position: "bottom",
        data: ["group1", "", "", "group2", "", ""],
      interval: 1,
      axisLine: {
        show: false
      },
      axisTick: {
        alignWithLabel: false,
        length: 40,
        align: "left",
        interval: function(index, value) {
          return value ? true : false;
        }
      },
      axisLabel: {
        margin: 30
      },
      splitLine: {
        show: true,
        interval: function(index, value) {
          return value ? true : false;
        }
      }
    }
  ],
  yAxis: {},
  series: [{
    name: 'Sales',
    type: 'bar',
    data: [5, 20, 36, 10, 10, 20]
  }]
};

Answer 1

我只是找到了您的问题，您可能不再需要这个答案，但是也许其他人会从中受益。

您正在寻找来自echarts4r的函数e_list（）。此方法对您进行而不是排序或汇总。但是，您可以使用R或JS功能。

在代码中，我仅按x_label进行排序，因为所有x_value都是唯一的。

library(echarts4r)
library(data.table)

dt <- data.table(
  x_label = c('A', 'A', 'A', 'D', 'D', 'M', 'A'),
  x_value = c('a', 'b', 'c', 'd', 'e', 'f', 'g'),
  y = 8:14
)

opts <- list(
  xAxis = list(
    list(data = as.list(dt[order(x_label)][, x_value]), position = "bottom"),
    list(data = list("A", "", "", "", "D", "", "M"), position = "bottom",
         axisLine = list(show = F), axisLabel = list(margin = 30),
         axisTick = list(
           show = T, alignWithLabel = F, length = 40, align = "left",
           interval = htmlwidgets::JS(
             "function(index, value) {return value ? true : false;}")),
         splitLine = list(show = T,
           interval = htmlwidgets::JS(
             "function(index, value) {return value ? true : false;}")
         ))),
  yAxis = list(type = "value"),
  series = list(list(type = "line", name = "Y", # data has to be sorted
                     data = as.list(dt[order(x_label)][, y])))
)

e_charts() %>% e_list(opts)

如果您想查看在R代码中提供的JS绘图，则只有几个步骤可以采取。

• 不要将列表列表列表option（这是r中的关键字）
• 替换JS函数，替换为htmlwidgets :: js（）
• 在htmlwidgets之外的所有内容中的htmlwidgets :: js（）ex.js :: js（）
• ： semi-colons
• 替换：with = =
• 替换{}，[]，（），list（）
• 替换为true，false用t，f（或true，false），

这是代码。我保留了与您提供的JSON相同的间距。
对于两个轴，我都添加了两个值得注意的版本。 （您会在代码中看到有关JSON更改的注释。）

opts2 = list(
  title = list(
    text = 'ECharts entry example'
  ),
  tooltip = list(),
  legend = list(
    data = list('Sales')
  ),
  xAxis = list(
    list(
      position = "bottom", type = "category",  # <--- added this (and fixed spelling of cardigan)
      data = list("shirt","cardigan","chiffon shirt","pants","heels","socks"),
    ),
    list(
      position = "bottom", 
      data = list("group1", "", "", "group2", "", ""),
      interval = 1,
      axisLine = list(
        show = F
      ),
      axisTick = list(
        alignWithLabel = F,
        length = 40,
        align = "left",
        interval = htmlwidgets::JS("function(index, value) {return value ? true : false;}")
      ),
      axisLabel = list(
        margin = 30
      ),
      splitLine = list(
        show = T,
        interval = htmlwidgets::JS("function(index, value) {return value ? true : false;}")
      )
    )
  ),
  yAxis = list(type = "value"),    # <--- like the xaxis, type added here
  series = list(list(
    name = 'Sales',
    type = 'bar',
    data = list(5, 20, 36, 10, 10, 20)
  ))
)

e_charts() |> e_list(opts2)

请记住，如果您的视图（即，rstudio viewer pane，浏览器等）太窄，则图中的标签将重叠，一些标签被隐藏。如有疑问，请更改视图的大小。

这是您可能看到的示例，如果视图太窄。