rCharts : 시계열 그림의 개별 점 색상 변경 (Highcharts)

Question

rCharts의 플로팅 인터페이스를 Highcharts 라이브러리에 사용하여 시계열 그림을 만들려고합니다. 저는 y 값에 따라 개별 점의 색을 어떻게 설정할 수 있는지 알아 내려고합니다. 선과 점에 다른 색상을 사용하는 방법을 찾았지 만 데이터 포인트가 아닌 개별적으로 그룹으로 사용했습니다. 여기

는 테스트 코드입니다 :이 Polycharts에서 수행 할 수 있다고 생각

library(rCharts) 
library(rjson) 
TransformDate <- function(x){ 
    as.numeric(as.POSIXct(x, origin="1970-01-01")) * 1000 
} 

x <- TransformDate(c('2013-01-01 11:05:35', '2013-03-03 04:50:35', '2013-05-05 21:09:37', '2013-07-07 12:49:05')) 
y <- c(1,56,123,1000) 

w<-TransformDate(c('2013-01-10 11:05:35', '2013-03-13 04:50:35', '2013-05-15 21:09:37', '2013-07-17 12:49:05')) 
z<-c(10, 100, 70, 500) 

df1 <- data.frame(x = x,y = y) 
df2 <- data.frame(x = w, y = z) 
combo <- rCharts:::Highcharts$new() 
combo$series(list(list(data = rCharts::toJSONArray2(df1, json = F, names = F), name = "Temp1", marker = list(fillColor = c('#999'), lineWidth=6, lineColor=c('#999'))), 
       list(data = rCharts::toJSONArray2(df2, json = F, names = F), name = "Temp2"))) 


combo$xAxis(type='datetime') 
combo$chart(type = "scatter") 
combo$chart(zoomType="x") 

combo 

하지만 highcharts을 사용하고 이유는 잘 시계열을 나타내는 것입니다 그리고 그것은 또한 멋진이 줌 - 인 기능.

미리 도움을 주셔서 감사합니다 & 제안. 월

Answer 1

여기에 별도로 라인/마커 색상/크기를 제어하는 ​​방법 중 하나입니다 :

h <- rCharts:::Highcharts$new() 
h$series(list(
    list(data = rCharts::toJSONArray2(df1, json = FALSE, names = FALSE), 
     name = "Big Reds", 
     color = '#FF0000', 
     lineWidth = 4, 
     marker = list(
     fillColor = '#FFA500', 
     radius = 10) 
    ), 
    list(data = rCharts::toJSONArray2(df2, json = FALSE, names = FALSE), 
     name = "Small Blues", 
     color = '#0000FF', 
     lineWidth = 2, 
     marker = list(
     fillColor = '#ADD8E6', 
     radius = 6) 
))) 
h$xAxis(type = 'datetime') 
h$chart(type = "scatter") 
h$chart(zoomType = "x") 
h 

가