Merge pull request plotly#1169 from plotly/inset-plot-fix-r

michaelbabyn · web-flow · commit 370d8653f95f · 2018-11-09T12:23:39.000-05:00
update inset R example to be proper inset graph
diff --git a/_posts/r/subplots/2015-07-30-insets.Rmd b/_posts/r/subplots/2015-07-30-insets.Rmd
@@ -2,7 +2,7 @@
 title: Insets in R | Plotly
 name: Inset Plots
 permalink: r/insets/
-description: How to make a subplot in R with Plotly
+description: How to make an inset plot in R with Plotly
 layout: base
 thumbnail: thumbnail/insets.jpg
 language: r
@@ -42,12 +42,12 @@ See also the [chapter on subplots in the plotly book](https://cpsievert.github.i
 
 ```{r, results = 'hide'}
 library(plotly)
-p1 <- plot_ly(x = c(1, 2, 3), y = c(4, 3, 2))
-p2 <- plot_ly(x = c(20, 30, 40), y = c(30, 40, 50)) %>%
-  layout(xaxis = list(domain = c(0.6, 0.95)),
-         yaxis = list(domain = c(0.6, 0.95)))
-p <- subplot(p1, p2)
-
+p <- plotly::plot_ly()
+p <- plotly::add_trace(p, x = c(1, 2, 3), y = c(4, 3, 2), mode='lines')
+p <- plotly::add_trace(p, x = c(20, 30, 40), y = c(30, 40, 50), xaxis='x2', yaxis='y2', mode='lines')
+p <- plotly::layout(p, xaxis2 = list(domain = c(0.6, 0.95), anchor='y2'),
+         yaxis2 = list(domain = c(0.6, 0.95), anchor='x2'))
+         
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
 chart_link = api_create(p, filename="subplots-1")
diff --git a/_posts/r/subplots/2015-07-30-insets.md b/_posts/r/subplots/2015-07-30-insets.md
@@ -2,7 +2,7 @@
 title: Insets in R | Plotly
 name: Inset Plots
 permalink: r/insets/
-description: How to make a subplot in R with Plotly
+description: How to make an inset plot in R with Plotly
 layout: base
 thumbnail: thumbnail/insets.jpg
 language: r
@@ -34,7 +34,7 @@ packageVersion('plotly')
 ```
 
 ```
-## [1] '4.5.2'
+## [1] '4.8.0'
 ```
 
 #### Basic Inset
@@ -44,16 +44,16 @@ See also the [chapter on subplots in the plotly book](https://cpsievert.github.i
 
 ```r
 library(plotly)
-p1 <- plot_ly(x = c(1, 2, 3), y = c(4, 3, 2))
-p2 <- plot_ly(x = c(20, 30, 40), y = c(30, 40, 50)) %>%
-  layout(xaxis = list(domain = c(0.6, 0.95)),
-         yaxis = list(domain = c(0.6, 0.95)))
-p <- subplot(p1, p2)
-
+p <- plotly::plot_ly()
+p <- plotly::add_trace(p, x = c(1, 2, 3), y = c(4, 3, 2), mode='lines')
+p <- plotly::add_trace(p, x = c(20, 30, 40), y = c(30, 40, 50), xaxis='x2', yaxis='y2', mode='lines')
+p <- plotly::layout(p, xaxis2 = list(domain = c(0.6, 0.95), anchor='y2'),
+         yaxis2 = list(domain = c(0.6, 0.95), anchor='x2'))
+         
 # Create a shareable link to your chart
 # Set up API credentials: https://plot.ly/r/getting-started
 chart_link = api_create(p, filename="subplots-1")
 chart_link
 ```
 
-<iframe src="https://plot.ly/~RPlotBot/3936.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
+<iframe src="https://plot.ly/~RPlotBot/5513.embed" width="800" height="600" id="igraph" scrolling="no" seamless="seamless" frameBorder="0"> </iframe>
