Question

考虑从rCharts / NVD3示例页面中提取的情节

p6 <- nPlot(uempmed ~ date, data = economics, type = 'lineChart')
p6

我试图让我的y轴显示百分比，所以我尝试了以下代码（R: interactive plots (tooltips): rCharts dimple plot: formatting axis之后），但它返回一个空白页

p6 <- nPlot(uempmed ~ date, data = economics, type = 'lineChart')
p6$yAxis(outputFormat = "%")
p6

我做了一些研究并得到以下工作：

p6 <- nPlot(uempmed ~ date, data = economics, type = 'lineChart')
p6$yAxis(tickFormat = "#! function(d) {return d*100 + '%' } !#")
p6

现在，我知道0 javascript并且希望尽可能多地留在R中，至少在短期内如此。有人能告诉我吗

为什么第一种方法不起作用，
第二种方法是否是最好的方法

Answer 1

由于@jdharrison的评论中有1的回答，我想我会快速回答＃2的完整代码示例，其中的评论展示了实现相同目标的不同方法。

  #turn off rstudio viewer
  #since we will be making lots of charts
  #we'll turn it back on at end
  oldviewer = options("viewer")
  options(viewer=NULL)

  data(economics, package = "ggplot2")

  #if we know we would like percent
  #and R is our friend but javascript is not
  #we could do some transformation in R
  economics$uempmed <- economics$uempmed/100

  p6 <- nPlot(uempmed ~ date, data = economics, type = 'lineChart')
  p6
  #then we could use d3.format just like the dimple example
  #except dimple assumes the d3.format part so we just need "%"
  #see https://github.com/PMSI-AlignAlytics/dimple/wiki/dimple.axis#tickFormat
  #for more on d3.format
  #see https://github.com/mbostock/d3/wiki/Formatting#d3_format
  p6$yAxis( tickFormat = "#!d3.format('%')!#" )
  p6

  #however your method works fine also
  p6$yAxis(tickFormat = "#! function(d) {return d*100 + '%' } !#")
  p6

  #but let's say we did not do the above transform
  #dividing by 100
  #here is how we could do it in javascript
  data(economics, package = "ggplot2")
  p6 <- nPlot(uempmed ~ date, data = economics, type = 'lineChart')
  p6$yAxis(tickFormat = "#! function(d) {
    //will change to .2% to show how to get two decimal
   return d3.format('.2%')(d/100)
  } !#")
  p6

  #turn rstudio viewer back on
  options(viewer = oldviewer)

rCharts格式化轴标签：outputFormat

1 个答案: