Plotting multi data-sets

Description

amStockMultiSet compute a stock of multi data-sets, still in dev

Usage

1
2
3
4
5
amStockMultiSet(data, panelColumn = NULL, ZoomButtonPosition = "bottom",
  ZoomButton = data.frame(Unit = "MAX", multiple = 1, label = "All"),
  color = c("#2E2EFE", "#31B404", "#FF4000"), precision = 1,
  export = FALSE, percentHeightPanel = NULL,
  creditsPosition = "top-right", ...)

Arguments

data

list, list of data.frame (same structure) first column is date, others are values

panelColumn

vector, numeric vector, controle panel adding for selected series

ZoomButtonPosition

character, zoom button position. Possible values are : "left", "right", "bottom", "top"

ZoomButton

data.frame, 3 columns : Unit, times unit multiple : multiple*unit label : button's label

color

character, color of data-sets (in hexadecimal).

precision

numeric, digits precision

export

logical, default set to FALSE. TRUE to display export feature.

percentHeightPanel

numeric, vector of size panel, same length than data

creditsPosition

character, credits position. Possible values are : "top-right", "top-left", "bottom-right", "bottom-left"

...

other first level attributes

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
data(data_stock1)
data_stock1$chartData1$value2 <- as.numeric(data_stock1$chartData1$value) + 10
data_stock1$chartData2$value2 <- as.numeric(data_stock1$chartData2$value) + 10
data_stock1$chartData3$value2 <- as.numeric(data_stock1$chartData3$value) + 10
data_stock1$chartData4$value2 <- as.numeric(data_stock1$chartData4$value) + 10

data_stock1$chartData1$value3 <- as.numeric(data_stock1$chartData1$value) - 10
data_stock1$chartData2$value3 <- as.numeric(data_stock1$chartData2$value) - 10
data_stock1$chartData3$value3 <- as.numeric(data_stock1$chartData3$value) - 10
data_stock1$chartData4$value3 <- as.numeric(data_stock1$chartData4$value) - 10

amStockMultiSet(data = data_stock1)
amStockMultiSet(data = data_stock1, panelColumn = c(1,2,1,1))

amStockMultiSet(data = data_stock1, panelColumn = c(1,2,3,4))

ZoomButton <- data.frame(Unit = c("DD", "DD", "MAX"), multiple = c(1, 10 ,1),
                   label = c("Day","10 days", "MAX"))
                   ZoomButtonPosition <- "bottom"
amStockMultiSet(data = data_stock1, panelColumn = c(1,2,1,1), ZoomButton = ZoomButton,
ZoomButtonPosition = "top")

amStockMultiSet(data = data_stock1, precision = 2)

amStockMultiSet(data = data_stock1, panelColumn = c(1,2,1,1), percentHeightPanel = c(3,1))

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.