rCharts nvd3 lineWithFocusChart Tùy chỉnh

Question

Tôi đang làm việc với nvd3 trên rCharts và đã tự hỏi liệu có cách nào để tùy chỉnh các trục cho biểu đồ công cụ tìm xem thấp hơn trên một lineWithFocusChart hay không. Tôi đã cung cấp ví dụ có thể sao chép bên dưới, nơi tôi tùy chỉnh trục x và y để có dấu phẩy tách biệt với hàng nghìn, nhưng định dạng đó không hiển thị trên biểu đồ công cụ tìm xem thấp hơn. Làm thế nào điều này có thể được giải quyết? Cảm ơn bạn!

 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

Tôi vừa phát hiện ra điều này khi tôi đang xem các câu hỏi chưa trả lời được gắn thẻ R. Xin lỗi tôi đã bỏ lỡ nó. rCharts đã ngừng hoạt động, nhưng hãy tìm phiên bản mới dựa trên cơ sở hạ tầng htmlwidgets linh hoạt hơn. Tôi chắc chắn câu trả lời này là quá muộn, nhưng tôi đã thay đổi mẫu để cho phép định dạng cho 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