rCharts格式

Question

我有点纠结于rCharts格式，它是我的演示文稿的一部分，我需要使用Highcharts，它是闪亮/反应性的一部分。我不能改变这些规则。我想把我的h1格式化为类似于评论hPlot，所以我会让我的YYYYMM在x上。我已经在互联网上检查过了，但所有这些信息对我来说太技术性了。我没有时间做这件事。

library(rCharts)

x <- data.frame(PRODUCT=factor(c("ALPHA", "ALPHA","BRAVO","ALPHA","ALPHA")), 
                YYYYMM= factor(c("2/1/2015","3/1/2015","4/1/2015","5/1/2015","6/1/2015")),
                MEM_COUNT=c(44,22,37,76,97))
## none of this formatting work
x$YYYYMM <- as.Date(x$YYYYMM)
x$YYYYMM = strftime(strptime(x$YYYYMM, format = "%m/%d/%Y"), format = "%b/%y") 

###  hPlot(MEM_COUNT ~ YYYYMM, data=x, type="line")  #<@>< good sample!!

### output$chart <- renderChart2({
  h1 <- Highcharts$new()
  h1$chart(type = "spline")
  h1$series(data = x$MEM_COUNT, dashStyle = "longdash")
  h1$legend(symbolWidth = 80)
  h1$xAxis(Title= list(text="Months"),type="datetime")
  h1
###})      

Answer 1

Mario，第一步是将日期更改为毫秒，不要切换到科学表示法，就像High图表/javascript所期望的以毫秒表示的日期/时间一样。

options(scipen = 13)
x$YYYYMM <- as.numeric(as.POSIXct(x$YYYYMM, format='%m/%d/%Y')) * 1000 

现在，你可以建立图表了。使用您的示例数据，我们将绘制按产品分组的MEM_COUNT和YYYYMM。(由于产品‘Alpha’只有一个数据点，这没有多大意义，但无论如何。)

h1 <- Highcharts$new()
h1 <- hPlot(MEM_COUNT ~ YYYYMM, data = x, 
      group = 'PRODUCT', 
      type = "spline" 
      )
h1$xAxis(type="datetime", labels = list(
  format = '{value:%b-%Y}'))
h1

通过更改“标签”值，您可以根据自己的喜好格式化x轴。

​

​