删除echarts4r中的逗号(千)

Question

下面是用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？

我检查了这里，但没有找到解决方案。

Answer 1

我为这个问题打开了一个GitHub问题，这是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)

Answer 2

也许不是最优雅的解决方案，但这应该有效：

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)

产出：

​

​