data("data_stock_2")
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"))
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = "round")
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = "round",
groupToPeriods = c('hh', 'DD', '10DD'))
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = "round",
groupToPeriods = c('12hh', 'DD', '10DD'),
maxSeries = 50)
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = "round",
groupToPeriods = c('hh', 'DD', '10DD'),
linewidth = c(3, 1))
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = "round",
groupToPeriods = c('12hh', 'DD', '10DD'),
maxSeries = 50, precision = 5)
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = c("diamond", "square"),
linetype = 0, bulletSize = c(5, 10),
groupToPeriods = c('12hh', 'DD', '10DD'),
maxSeries = 50, aggregation = "Sum")
ZoomButton <- data.frame(Unit = c("DD", "DD", "MAX"), multiple = c(1, 2 ,1),
label = c("Day","2 days", "MAX"))
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = "round",
ZoomButton = ZoomButton, main = "My title", ylab = "Interest")
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = "round",
ZoomButton = ZoomButton, main = "My title", ylab = "Interest",
export = TRUE, ZoomButtonPosition = "right",
legendPosition = "bottom", scrollbarPosition = "top")
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"), bullet = "round",
ZoomButton = ZoomButton, main = "My title",
ylab = "Interest", export = TRUE,
creditsPosition = "bottom-left")
Run the code above in your browser using DataLab