2015-10-05 48 views
0

我有點掙扎與rCharts格式,這是我的演示文稿的一部分,我需要去與Highcharts,它是閃亮/反應的一部分。我無法改變這些規則。 我想將我的h1格式化爲與評論hPlot類似,因此我將在x上使用我的YYYYMM。我檢查過互聯網,但所有這些信息對我來說太過技術性。我沒有時間資源爲這件作品。rCharts格式

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 
###})  

回答

1

馬里奧,第一步是改變日期到毫秒,不切換到科學記數法,如Highcharts/JavaScript的預計以毫秒爲單位所表示的日期/時間。

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

現在,您可以構建圖表。使用您的示例數據,我們將繪製MEM_COUNT與YYYYMM,按PRODUCT分組。 (如產品「阿爾法」只有1個數據點它並沒有多大意義,但無論如何..)

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軸格式根據自己的喜好。

enter image description here

+0

Gracias,hvollmeier! –

+0

現在我將嘗試瞭解是否可以更改背景顏色。 –