Гистограмма на графике с отрицательными значениями в R

Question

У меня есть данные временных рядов, которые я хотел бы построить в R с dygraphs с барами в отличие от линий. Я использую следующее plotter предложение из документации dygraphs.

dyBarChart <- function(dygraph) {
  dyPlotter(dygraph = dygraph,
            name = "BarChart",
            path = system.file("plotters/barchart.js",
                               package = "dygraphs"))
}

Проблема, которую я имею, представляет отрицательные значения.
С линейным сюжетом, это dygraph() работает как надо:

dygraph(test)

Однако, когда мы добавляем столбчатую диаграмму, ничего не отображается, а предупреждения возвращаются:

dygraph(z)  %>%  dyBarChart() 
There were 14 warnings (use warnings() to see them)
> warnings()

Warning messages:
1: In normalizePath(path) : path[1]="": No such file or directory
2: In file.copy(from, to, overwrite = TRUE, recursive = isdir) : too deep nesting
3: In file.copy(from, to, overwrite = TRUE, recursive = isdir) : too deep nesting...

Известен ли обходной путь для построения отрицательных значений в чертах R-графа?

Вот пример данных:

> dput(test)
structure(c(-6L, 0L, -4L, -1L, 2L, 0L, 18L, -3L, -2L, -1L, -2L, 
1L, -22L, -5L, -1L, 3L, 11L, 2L, -2L, 5L, -3L, -1L, -2L, 0L, 
12L), index = structure(c(1521217200, 1521217800, 1521218400, 
1521219000, 1521219600, 1521220200, 1521220800, 1521221400, 1521222000, 
1521222600, 1521223200, 1521223800, 1521224400, 1521225000, 1521225600, 
1521226200, 1521226800, 1521227400, 1521228000, 1521228600, 1521229200, 
1521229800, 1521230400, 1521231000, 1521231600), class = c("POSIXct", 
"POSIXt"), tzone = ""), class = "zoo")

Answer 1

Если вы попробуете пример по указанной вами ссылке, вы увидите, что он не работает. Но благодаря: Как вы создаете линейный и линейный график с помощью R-графиков?

Вот правильная функция dyBarChart для вашего кода для работы.

dyBarChart <- function(dygraph) {
    dyPlotter(
        dygraph = dygraph,
        name = "BarChart",
        path = system.file("examples/plotters/barchart.js",package = "dygraphs")
    )
}

dygraph(test) %>% dyBarChart()