rCharts nvd3 lineWithFocusChart Настройка

Question

Я работаю с nvd3 на rCharts и задавался вопросом, был ли способ настроить оси для нижнего графического видоискателя на строкеWithFocusChart. Я представил воспроизводимый пример ниже, где я настраиваю оси x и y, чтобы иметь запятые, разделяющие тысячи мест, но это форматирование не отображается на нижней панели поиска. Как это можно решить? Спасибо!

 library(rCharts) 
     temp <- data.frame(x = 1:2000, y = 1:2000, z = c(rep(1,1000), rep(0,1000))) 
     g <- nPlot(y ~ x, group = "z", data = temp, type = "lineWithFocusChart") 
     g$templates$script <- "http://timelyportfolio.github.io/rCharts_nvd3_templates/chartWithTitle_styled.html" 
     g$set(title = "Example") 
     g$chart(transitionDuration = -1, 
       tooltipContent = "#! function(key, x, y) { 
           return 'z: ' + key + '<br/>' + 'x: ' + x + '<br/>' + 'y: ' + y 
           }!#", 
       showLegend = FALSE, margin = list(left = 200, 
               right = 100, 
               bottom = 100, 
               top = 100))    
     g$xAxis(axisLabel = "x", 
       tickFormat = "#!function(x) {return d3.format(',.0f')(x);}!#") 
     g$yAxis(axisLabel = "y", 
       width = 100, 
       tickFormat = "#!function(y) {return d3.format(',.0f')(y);}!#", 
       showMaxMin = FALSE) 
     g 

Answer 1

Я только что обнаружил это, когда я смотрел на оставшихся без ответа вопросов помеченного R. Извините, я пропустил это. rCharts зашел в тупик, но ищет новую версию, основанную на более гибкой инфраструктуре htmlwidgets. Я уверен, что этот ответ слишком поздно, но я изменил шаблон, чтобы разрешить форматирование для y2Axis.

# uncomment this to install the fix 
#devtools::install_github("timelyportfolio/rCharts") 

library(rCharts) 
temp <- data.frame(x = 1:2000, y = 1:2000, z = c(rep(1,1000), rep(0,1000))) 
g <- nPlot(y ~ x, group = "z", data = temp, type = "lineWithFocusChart") 
g$templates$script <- "c:/users/kent.tleavell_nt/dropbox/development/r/rCharts_nvd3_templates/chartWithTitle_styled.html" 
g$set(title = "Example") 
g$chart(transitionDuration = -1, 
     tooltipContent = "#! function(key, x, y) { 
     return 'z: ' + key + '<br/>' + 'x: ' + x + '<br/>' + 'y: ' + y 
     }!#", 
     showLegend = FALSE, margin = list(left = 200, 
              right = 100, 
              bottom = 100, 
              top = 100))    
g$xAxis(axisLabel = "x", 
     tickFormat = "#!function(x) {return d3.format(',.0f')(x);}!#") 
g$yAxis(axisLabel = "y", 
     width = 100, 
     tickFormat = "#!function(y) {return d3.format(',.0f')(y);}!#", 
     showMaxMin = FALSE) 
g$x2Axis(tickFormat = "#!function(x) {return d3.format('1.2s')(x);}!#") 

# now we have a new y2Axis function 
g$y2Axis(
    tickFormat = "#!function(y) {return d3.format('1.2s')(y);}!#" 
) 

g