rCharts nvd3 lineWithFocusChart अनुकूलन

Question

मैं rvharts पर nvd3 के साथ काम कर रहा हूं और सोच रहा था कि लाइन के साथ निचले दृश्य खोजक ग्राफ के लिए अक्ष को अनुकूलित करने का कोई तरीका था WithFocusChart। मैंने नीचे एक प्रतिलिपि उदाहरण प्रदान किया है, जहां मैं हजारों स्थान को अलग करने के लिए एक्स और वाई अक्ष को अनुकूलित करता हूं, लेकिन यह स्वरूपण निचले दृश्य खोजक चार्ट पर दिखाई नहीं देता है। यह कैसे हल किया जा सकता है? धन्यवाद!

 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