r - как построить графики на нескольких панелях

Question

Я пытался построить динамический график на разных панелях, как это можно сделать на сайте, используя group такие как

но он должен быть динамичным с использованием графиков. Пример кода здесь:

library(quantmod)
library(dygraphs)
data(edhec)
R = edhec[, 1:4]
dygraph(R)

Спасибо заранее.

Answer 1

Создайте несколько графиков, используя synchronization особенность здесь

Чтобы просмотреть его как один документ, вам необходимо knit HTML-страница. Посмотрите на этот так ответ для деталей.

Ваш конечный результат будет таким.

Answer 2

Чтобы построить несколько графиков в одном и том же окне RStudio, вы должны сначала создать список объектов графиков, а затем отобразить список графиков с помощью пакета htmltools. Yihui Xie из RStudio предоставил ответ здесь: Yihui Xie ответ (но без группировки).

Здесь работает R код, который создает сгруппированные графики графиков свечей:

# load packages
library(quantmod)
library(dygraphs)
library(htmltools)

# download time series into an environment
sym_bols <- c("VTI", "EEM")
data_env <- new.env()
quantmod::getSymbols(sym_bols, from="2017-01-01", env=data_env)

# create a list of dygraphs objects in a loop
dy_graph <- eapply(data_env, function(x_ts) {
  dygraphs::dygraph(x_ts[, 1:4], group="etfs",
    main=paste("Plot of:", substring(colnames(x_ts)[1], 1, 3)),
      width=600, height=400) %>% dygraphs::dyCandlestick()
})  # end eapply

# render the dygraphs objects using htmltools
htmltools::browsable(htmltools::tagList(dy_graph))

# perform same plotting as above using pipes syntax
# create a list of dygraphs objects in a loop
eapply(data_env, function(x_ts) {
  dygraphs::dygraph(x_ts[, 1:4], group="etfs",
    main=paste("Plot of:", substring(colnames(x_ts)[1], 1, 3)),
      width=600, height=400) %>% dygraphs::dyCandlestick()
}) %>% # end eapply
# render the dygraphs objects using htmltools
  htmltools::tagList() %>% htmltools::browsable()

Выше R Код генерирует следующие сгруппированные графики графиков свечей: