Добавить информацию в информационное окно на графике с соответствующим пакетом R

Question

#libraries
library(data.table)
library(dygraphs)
library(xts)

#dummy data
dates <- data.table(dates  = seq.Date(as.Date("2017-03-01"), length = 14, by = "month"),
                    satisfaction = runif(14, min = 0.1, max = 1),
                    answers = runif(14, min = 100, max = 1000),
                    )

#convert to xts
xts_dates <- xts(dates, order.by = as.POSIXct(dates$dates, format = ("%Y-%m-%d")))
dygraph(xts_dates)

Я хочу только построить satisfaction и добавить данные answers либо в информационное поле в верхнем правом углу, либо в другом месте, где они видны

Answer 1

#libraries
library(data.table)
library(dygraphs)
library(xts)

#dummy data
dates <- data.table(dates  = seq.Date(as.Date("2017-03-01"), length = 14, by = "month"),
                    satisfaction = runif(14, min = 0.1, max = 1),
                    answers = runif(14, min = 100, max = 1000)
                    )

#convert to xts
xts_dates <- xts(dates, order.by = as.POSIXct(dates$dates, format = ("%Y-%m-%d")))
xts_dates <- xts_dates[, 2:3]

#create dygraph with double axes
dygraph(xts_dates, main = "Satisfaction") %>%
  dyAxis("y", label = "Satisfaction") %>%
  dyAxis("y2", label = "Number of answers", independentTicks = TRUE) %>%
  dySeries("answers", axis = 'y2')

В основном я добавил дополнительную ось для количества ответов.