Example of usage of StockEvents

[datastorm-open]

Example of usage of StockEvents

[bthieurmel]

Hi,

This is an example with some StockEvents with stock chart :

### Generate dates ----
start <- as.POSIXct("01-01-2015", format = "%d-%m-%Y")
end <- as.POSIXct("31-01-2015", format = "%d-%m-%Y")
period <- seq.POSIXt(from = start, to = end, by = "hour")


### Generate mesures ----
values <- rnorm(length(period), mean = 500, sd= 200)
data <- data.table(values, date = period)
data[ , date := format(date, "%m-%d-%Y %H:%M:%S")]


amStockChart(theme = "default" , dataDateFormat = "MM-DD-YYYY JJ:NN:SS") %>>% 
  addDataSet(dataSet(title = "Values", categoryField = "date") %>>%
               setDataProvider(data, keepNA = FALSE) %>>%
               addFieldMapping(fromField = "values", toField = "values") %>>%
               addStockEvent(date = "01-02-2015 23:00:00", type = "sign", graph ="g1",
                             text = "Event1", description = "This is an event") %>>%
               addStockEvent(date = "01-15-2015 23:00:00", type = "sign", graph ="g1",
                             text = "Event2", description = "This is a second event")) %>>% 
  addPanel(stockPanel(showCategoryAxis = FALSE, title = "values", percentHeight = 70) %>>%
             addStockGraph(id = "g1", valueField = "values", comparable = TRUE,
                           compareField = "values", balloonText = "[[title]] =<b>[[value]]</b>",
                           compareGraphBalloonText = "[[title]] =<b>[[value]]</b>") %>>% 
             setStockLegend(periodValueTextComparing = "[[percents.value.close]]%",
                            periodValueTextRegular = "[[value.close]]")) %>>% 
  setChartScrollbarSettings(graph = "g1") %>>% 
  setChartCursorSettings(valueBalloonsEnabled = TRUE, fullWidth = TRUE,
                         cursorAlpha = 0.1, valueLineBalloonEnabled = TRUE,
                         valueLineEnabled = TRUE, valueLineAlpha = 0.5) %>>% 
  setCategoryAxesSettings(minPeriod = "ss", maxSeries = 1000) %>>% 
  plot(width = "100%")

[debsush]

Hi

It works like a charm. I realized my mistake. I missed dataDateFormat = "MM-DD-YYYY JJ:NN:SS"

Wonderful and very happy with the package. Cheers to the whole team

Regards,
SD