在闪亮的 Dygraphs 上本地化日期
Localizing date on shiny Dygraphs
我搜索了一下,找到了这个答案:
但我不知道如何将这些设置应用到闪亮的 dygraph 上。
我真的很想在 x 轴和图表标签中看到本地化的日期格式。
纯属好奇数据(真的无所谓),具体代码如下:
xtsdata <- tbl_xts(dados %>% filter(localidade%in%dados$localidade), cols_to_xts = "totalCases", spread_by = "localidade")
dygraph(xtsdata, xlab='Dia', ylab='Casos (acumulado)', main="Gráfico temporal") %>%
dyRangeSelector() %>%
dyHighlight(highlightCircleSize = 3,
highlightSeriesBackgroundAlpha = 0.8,
highlightSeriesOpts = list(strokeWidth = 2)) %>%
dyOptions(colors = RColorBrewer::brewer.pal(9, "Set2")) %>%
dyLegend(show = "follow")
比想象中简单,唯一误导的是两个属性都属于x轴格式。
只需添加:
dyAxis("x", axisLabelFormatter = 'function(d) { return moment(d).format("DD/MMM");}', valueFormatter = 'function(ms) { return moment(ms).format("DD[ de ]MMMM[ de ]YYYY"); }')
(对于本地化,我决定使用 moment.js)
我搜索了一下,找到了这个答案:
但我不知道如何将这些设置应用到闪亮的 dygraph 上。
我真的很想在 x 轴和图表标签中看到本地化的日期格式。
纯属好奇数据(真的无所谓),具体代码如下:
xtsdata <- tbl_xts(dados %>% filter(localidade%in%dados$localidade), cols_to_xts = "totalCases", spread_by = "localidade")
dygraph(xtsdata, xlab='Dia', ylab='Casos (acumulado)', main="Gráfico temporal") %>%
dyRangeSelector() %>%
dyHighlight(highlightCircleSize = 3,
highlightSeriesBackgroundAlpha = 0.8,
highlightSeriesOpts = list(strokeWidth = 2)) %>%
dyOptions(colors = RColorBrewer::brewer.pal(9, "Set2")) %>%
dyLegend(show = "follow")
比想象中简单,唯一误导的是两个属性都属于x轴格式。
只需添加:
dyAxis("x", axisLabelFormatter = 'function(d) { return moment(d).format("DD/MMM");}', valueFormatter = 'function(ms) { return moment(ms).format("DD[ de ]MMMM[ de ]YYYY"); }')
(对于本地化,我决定使用 moment.js)