javascript - rCharts nvd3 lineWithFocusChart Personalización

nvd3.js

Question

Estoy trabajando con nvd3 en rCharts y me preguntaba si había alguna manera de personalizar los ejes para el gráfico del visor inferior en un lineWithFocusChart. He proporcionado un ejemplo reproducible a continuación, donde personalizo los ejes x e y para que tengan comas que separan el lugar de los miles, pero ese formato no aparece en el cuadro del buscador de vista inferior. ¿Cómo podría resolverse esto? ¡Gracias!

      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

Acabo de descubrir esto mientras miraba las preguntas sin respuesta etiquetadas como R Lo siento, me lo perdí. rCharts ha estancado, pero busque una nueva versión basada en la infraestructura htmlwidgets más flexible. Estoy seguro de que esta respuesta es demasiado tarde, pero he cambiado la plantilla para permitir el formateo de 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