javascript - examples - La salida de la función obsoleta de Highcharter es diferente a la sugerida

highcharter r github

Question

Estoy produciendo una trama de series de tiempo con la excelente biblioteca highcharter Josh Kunst en R.

Usando esta información:

    > dput(t)
structure(c(2, 2, 267822980, 325286564, 66697091, 239352431, 
94380295, 1, 126621669, 158555699, 32951026, 23, 108000151, 132505189, 
29587564, 120381505, 25106680, 117506099, 22868767, 115940080, 
22878163, 119286731, 22881061), .Dim = c(23L, 1L), index = structure(c(1490990400, 
1490994000, 1490997600, 1491001200, 1491004800, 1491008400, 1491012000, 
1491026400, 1491033600, 1491037200, 1491040800, 1491058800, 1491062400, 
1491066000, 1491069600, 1491073200, 1491076800, 1491109200, 1491112800, 
1491120000, 1491123600, 1491156000, 1491159600), tzone = "US/Mountain", tclass = c("POSIXct", 
"POSIXt")), class = c("xts", "zoo"), .indexCLASS = c("POSIXct", 
"POSIXt"), tclass = c("POSIXct", "POSIXt"), .indexTZ = "US/Mountain", tzone = "US/Mountain", .CLASS = "double", .Dimnames = list(
    NULL, "count"))

Puedo hacer esta gráfica

con

highcharter::highchart() %>% hc_add_series_xts(t)

Pero recibo esta advertencia:

''hc_add_series_xts'' is deprecated.
Use ''hc_add_series'' instead.

Por lo tanto, siendo el tipo fácil de hacer, hago exactamente eso y con

highcharter::highchart() %>% hc_add_series(t)  %>% hc_xAxis(type = ''datetime'')

Yo hago este gráfico:

El problema es que realmente me gusta ese pequeño deslizador y ventana deslizante al final del primer gráfico, sin mencionar que orienta las etiquetas en el eje y correcto, etc.

Aparte de "por favor no desaproveche esa función", ¿cómo puedo asegurarme de que la segunda salida, utilizando la función sugerida y, al parecer, única, se vea como la primera?

Answer 1

El gráfico que desea es de tipo ''stock'' en lugar del ''gráfico'' predeterminado (piense en ''Highcharts'' frente a ''Highstock'').

Especificar el tipo resuelve tu problema:

highchart(type = ''stock'') %>% 
    hc_add_series(t) %>% 
    hc_xAxis(type = ''datetime'')