2016-11-04 3 views
0

고화질 패키지를 사용하여 R-Shiny 프로젝트에 금융 일일 시간 세리에트를 계획하고 있습니다. 출력을 얻기 위해 나는 (xtsPrices()가이 장중 시간 세리 XTS 반환하는 함수이므로주의) 서버 부분에 대한 다음 코드를 사용하고 있습니다 :R Shiny Highcharter - hc_rangeSelector() 사용 방법

output$plot <- renderHighchart({ 

y <- xtsPrices() 

highchart() %>% 
    hc_exporting(enabled = TRUE)%>% 
    hc_add_series_ohlc(y) %>% 
    hc_add_theme(hc_theme_538(colors = c("red", "blue", "green"), 
          chart = list(backgroundColor = "white"))) 
}) 

내가 설명서에 자세히 그 줌 버튼을 개인화하려면 hc_rangeSelector() 함수를 처리해야하지만, Highstock API에 자바 스크립트의 경우와 같이이 R-Shiny 환경에서이를 지정하는 방법을 모르겠습니다. 특히, 하루 종일 근무하기 때문에 "20min", "1h", "3h", "1D"등과 같은 버튼이 필요합니다.

+0

이 질문에 당신을 도울 수 http://stackoverflow.com/questions/39665958/how-do-i-adjust-the-initial-range-in-hc-navigator/ 39666504 # 39666504. rangeSelector의 옵션을 알고 싶다면'highcharts (type = "stock"%) %> %'가 필요하다. http://api.highcharts.com/highstock/rangeSelector. 희망이 도움이 – jbkunst

답변

0

일일 데이터의 경우 다음과 같은 작업을 수행 할 수 있습니다. 이 :

hc <- highchart() %>% 
    hc_exporting(enabled = TRUE) %>% 
    hc_add_series_ohlc(y, yAxis = 0, name = "Sample Data", id = "T1",smoothed=TRUE,forced=TRUE,groupPixelWidth=24) %>% 
    hc_rangeSelector(buttons = list(
    list(type = 'all', text = 'All'), 
    list(type = 'hour', count = 2, text = '2h'), 
    list(type = 'hour', count = 1, text = '1h'), 
    list(type = 'minute', count = 30, text = '30m'), 
    list(type = 'minute', count = 10, text = '10m'), 
    list(type = 'minute', count = 5, text = '5m') 
)) %>% 
    hc_add_theme(hc_theme_538(colors = c("red", "blue", "green"),chart = list(backgroundColor = "white"))) 
hc 

enter image description here

+1

완벽, 내가 정확히 필요한거야! 많은 감사합니다! –

+0

Np, 도와 드리겠습니다! 다음 번에 데이터베이스를 쿼리하여 플롯을 만들어야하는 샘플 데이터를 제공해야합니다. –