RCharts nvd3 lineWithFocusChart Setting

Question

I am working with nvd3 on rCharts and wondered if there is a way to adjust the axes for the lower graphic viewfinder on the lineWithFocusChart. I gave a reproducible example below, where I adjust the x and y axes so that commas divide thousands of places, but this formatting does not appear in the bottom search bar. How can this be solved? Thank!

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.imtqy.com/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

I just discovered this as I was considering unanswered questions with R tags. Sorry, I missed it. rCharts stalled, but is looking for a new version based on the more flexible htmlwidgets infrastructure. I am sure this answer is too late, but I changed the template to allow formatting for 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