在 echarts4r 中删除千位逗号答案

【问题标题】：Remove comma in thousands in echarts4r在 echarts4r 中删除千位逗号
【发布时间】：2020-07-16 10:17:12
【问题描述】：

这是用echarts4r制作的情节：

library(tibble)
library(echarts4r)

data_test <- tibble(
  year = seq(1900, 1920, 1),
  variable = seq(200, 400, 10)
)

data_test %>%
  e_charts(year) %>%
  e_x_axis(year) %>%
  e_y_axis(variable) %>%
  e_line(variable)

例如，如何格式化 x 轴上的值，以便使用 1900 而不是 1,900？

我检查了here，但找不到解决方案。

【问题讨论】：

标签： r echarts4r

【解决方案1】：

可能不是最优雅的解决方案，但这应该可行：

data_test %>%
    e_charts(year) %>%
    e_x_axis(type='category') %>%
    e_y_axis(variable) %>%
    e_line(variable)

为更清晰的输出添加选项：

data_test %>%
    e_charts(year) %>%
    e_x_axis(type='category',axisLabel = list(interval = 4),axisTick = list(inside=TRUE,alignWithLabel=TRUE,interval=4)) %>%
    e_y_axis(variable) %>%
    e_line(variable)

输出：

【讨论】：

我发布了echarts4r 的开发人员的答案，稍后我将对其进行验证，但您的解决方案也有效。谢谢

【解决方案2】：

我为这个问题开了一个GitHub issue，这是echarts4r的开发者的答案（我把它缩短了一点，原始答案见链接）。

有两种解决方案。

1) 将变量year 转换为因子。这只有在没有缺失年份的情况下才有效。

library(tibble)
library(echarts4r)

data_test <- tibble(
    year = seq(1900, 1920, 1),
    variable = seq(200, 400, 10)
)

data_test %>%
    dplyr::mutate(year = as.factor(year)) %>% 
    e_charts(year) %>%
    e_line(variable)

2) 修改 JavaScript 函数。这更加健壮，并且在缺少年份时也可以使用。

library(echarts4r)

data_test <- tibble(
    year = c(1900, 1901, 1905),
    variable = 1:3
)

label <- list(
    formatter = htmlwidgets::JS(
        'function(value, index){
            return value;
        }'
    )
)

data_test %>%
    e_charts(year) %>%
    e_y_axis(variable) %>% 
    e_line(variable) %>% 
    e_x_axis(serie = year, axisLabel = label)

【讨论】：