if (FALSE) {
data("data_stock_2")
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"))
# upper /lower
data <- data_stock_2[1:50, ]
data$ts1low <- data$ts1-100
data$ts1up <- data$ts1+100
amTimeSeries(data, "date", list(c("ts1low", "ts1", "ts1up"), "ts2"))
amTimeSeries(data, "date", list(c("ts1low", "ts1", "ts1up"), "ts2"),
color = c("red", "blue"), bullet = c("round", "square"))
# column / step
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"),
type = c("column", "step"), fillAlphas = c(1, 0),
linewidth = c(0, 1))
# some parameters
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"), aggregation = "Sum")
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")
# date formats
amTimeSeries(data_stock_2, "date", c("ts1", "ts2"),
type = "column", fillAlphas = 1,
linewidth = 0, legendHidden = T,
categoryBalloonDateFormats = list(list(period = 'YYYY', format = 'YYYY'),
list(period='MM', format = 'MM'),
list(period = 'WW', format = 'MM-DD'),
list(period='DD', format = 'MM-DD'),
list(period = 'hh', format = 'MM-DD JJ:NN'),
list(period='mm', format = 'MM-DD JJ:NN'),
list(period = 'ss', format = 'MM-DD JJ:NN:SS'),
list(period='fff', format = 'MM-DD JJ:NN:SS')),
dateFormats = list(list(period = 'YYYY', format = 'YYYY'),
list(period='MM', format = 'MMMM'),
list(period = 'WW', format = 'MMMM-DD'),
list(period='DD', format = 'MMMM-DD'),
list(period = 'hh', format = 'MM-DD JJ:NN'),
list(period='mm', format = 'MM-DD JJ:NN'),
list(period = 'ss', format = 'MM-DD JJ:NN:SS'),
list(period='fff', format = 'MM-DD JJ:NN:SS')))
}
Run the code above in your browser using DataLab