如何在echarts4r日历中设置本地月份名称

Question

有没有办法将echarts4r日历中日期的语言设置为本地时间？

这是如何获得冰岛语月份缩写名称的方法，但在echarts4r日历中，它仍然是英语。

Sys.setlocale("LC_TIME", "Icelandic")
format(Sys.time(), '%d %b %Y')

我也尝试过Sys.setenv(LANGUAGE = "is")

这是我正在使用的示例日历：

dates <- seq.Date(as.Date("2017-01-01"), as.Date("2018-12-31"), by = "day")
values <- rnorm(length(dates), 20, 6)
year <- data.frame(date = dates, values = values)
year %>% 
  e_charts(date) %>% 
  e_calendar(range = "2018") %>% 
  e_heatmap(values, coord_system = "calendar") %>% 
  e_visual_map(max = 30) %>% 
  e_title("Calendar", "Heatmap")

Answer 1

事实上，在echarts中有一个这样的选项：

https://echarts.apache.org/en/option.html#calendar.monthLabel.nameMap

您可以在nameMap中为日和月标签指定语言。

我尝试在R中使用monthLabel参数列表中的以下选项: nameMap = 'fr‘，但似乎不起作用。

这是一个我在法语中使用lubridate函数月的解决方案。(对于日期标签几乎相同，我将星期一作为第一天，并手动设置法语日期缩写)。

我已经在e_tooltip中添加了一个格式化工具来打印悬停时的日期和值。

library(lubridate)
library(dplyr, warn.conflicts = FALSE)
library(echarts4r)

temp_data %>% 
  mutate(value_to_plot = ifelse(value_to_plot == 0, NA, value_to_plot)) %>% 
  e_charts(DATE_J) %>% 
  e_calendar(range = "2020",
             top="60", 
             left = 150, 
             dayLabel = list(
                        firstDay=1, 
                        nameMap = c('Di', 'Lu', 'Ma', 'Me', 'Je', 'Ve', 'Sa')),
             monthLabel = list(
                          nameMap = month(1:12, label = TRUE, abbr = FALSE))) %>%
  e_heatmap(value_to_plot, coord_system = "calendar") %>% 
   e_visual_map(min = 1L, max = max(temp_data$value_to_plot), top = 130, left = 15) %>% 
  e_tooltip(formatter = htmlwidgets::JS("
                                    function(params){
                                    return(params.value[0] + ': ' + params.value[1])
                                    }
                                    ")) %>% 
            e_title("Title", "Subtitle")

echarts with french date labels

纪劳姆