ohlc shapes and annotations

Author: bcdunbar

_posts/r/2017-02-03-ohlc-charts.Rmd

@@ -64,6 +64,56 @@ chart_link
 chart_link
 ```
 
+### Customise the Figure with Shapes and Annotations
+
+```{r, results = 'hide'}
+library(plotly)
+library(quantmod)
+
+getSymbols("AAPL",src='yahoo')
+
+df <- data.frame(Date=index(AAPL),coredata(AAPL))
+
+# annotation
+a <- list(text = "Stock Split",
+          x = '2014-06-06',
+          y = 1.02,
+          xref = 'x',
+          yref = 'paper',
+          xanchor = 'left',
+          showarrow = FALSE
+          )
+
+# use shapes to create a line
+l <- list(type = line,
+          x0 = '2014-06-06',
+          x1 = '2014-06-06',
+          y0 = 0,
+          y1 = 1,
+          xref = 'x',
+          yref = 'paper',
+          line = list(color = 'black',
+                      width = 0.5)
+          )
+
+p <- df %>%
+  plot_ly(x = ~Date, type="ohlc", 
+          open = ~AAPL.Open, close = ~AAPL.Close, 
+          high = ~AAPL.High, low = ~AAPL.Low) %>%
+  layout(title = "Apple Stock", 
+         annotations = a,
+         shapes = l)
+
+# Create a shareable link to your chart
+# Set up API credentials: https://plot.ly/r/getting-started
+chart_link = plotly_POST(p, filename="finance/ohlc-shapes-annot")
+chart_link
+```
+
+```{r, echo=FALSE}
+chart_link
+```
+
 #Reference
 
 See [https://plot.ly/r/reference/#ohlc](https://plot.ly/r/reference/#ohlc) for more information and chart attribute options!

_posts/r/2017-02-03-ohlc-charts.md

@@ -64,6 +64,55 @@ chart_link
 
 <iframe src="https://plot.ly/~RPlotBot/4299.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
 
+### Customise the Figure with Shapes and Annotations
+
+
+```r
+library(plotly)
+library(quantmod)
+
+getSymbols("AAPL",src='yahoo')
+
+df <- data.frame(Date=index(AAPL),coredata(AAPL))
+
+# annotation
+a <- list(text = "Stock Split",
+          x = '2014-06-06',
+          y = 1.02,
+          xref = 'x',
+          yref = 'paper',
+          xanchor = 'left',
+          showarrow = FALSE
+          )
+
+# use shapes to create a line
+l <- list(type = line,
+          x0 = '2014-06-06',
+          x1 = '2014-06-06',
+          y0 = 0,
+          y1 = 1,
+          xref = 'x',
+          yref = 'paper',
+          line = list(color = 'black',
+                      width = 0.5)
+          )
+
+p <- df %>%
+  plot_ly(x = ~Date, type="ohlc", 
+          open = ~AAPL.Open, close = ~AAPL.Close, 
+          high = ~AAPL.High, low = ~AAPL.Low) %>%
+  layout(title = "Apple Stock", 
+         annotations = a,
+         shapes = l)
+
+# Create a shareable link to your chart
+# Set up API credentials: https://plot.ly/r/getting-started
+chart_link = plotly_POST(p, filename="finance/ohlc-shapes-annot")
+chart_link
+```
+
+<iframe src="https://plot.ly/~RPlotBot/4301.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+
 #Reference
 
 See [https://plot.ly/r/reference/#ohlc](https://plot.ly/r/reference/#ohlc) for more information and chart attribute options!