Update 2015-07-30-graphing-multiple-chart-types.Rmd

nicolaskruchten · web-flow · commit 3c76d524a1c6 · 2020-08-21T10:41:43.000-04:00
diff --git a/r/2015-07-30-graphing-multiple-chart-types.Rmd b/r/2015-07-30-graphing-multiple-chart-types.Rmd
@@ -58,34 +58,8 @@ fig <- fig %>% layout(xaxis = list(title = 'Displacement (cu.in.)'),
 fig
 ```
 
-### Loess Smoother with Uncertainty Bounds
-
-```{r}
-library(plotly)
-library(broom)
-
-m <- loess(mpg ~ disp, data = mtcars)
-
-fig <- plot_ly(mtcars, x = ~disp, color = I("black"))
-fig <- fig %>% add_markers(y = ~mpg, text = rownames(mtcars), showlegend = FALSE)
-fig <- fig %>% add_lines(y = ~fitted(loess(mpg ~ disp)),
-            line = list(color = 'rgba(7, 164, 181, 1)'),
-            name = "Loess Smoother")
-fig <- fig %>% add_ribbons(data = augment(m),
-              ymin = ~.fitted - 1.96 * .se.fit,
-              ymax = ~.fitted + 1.96 * .se.fit,
-              line = list(color = 'rgba(7, 164, 181, 0.05)'),
-              fillcolor = 'rgba(7, 164, 181, 0.2)',
-              name = "Standard Error")
-fig <- fig %>% layout(xaxis = list(title = 'Displacement (cu.in.)'),
-         yaxis = list(title = 'Miles/(US) gallon'),
-         legend = list(x = 0.80, y = 0.90))
-
-fig
-```
-
 
 
 #Reference
 
-See [https://plotly.com/r/reference/](https://plotly.com/r/reference/) for more information and chart attribute options!
+See [https://plotly.com/r/reference/](https://plotly.com/r/reference/) for more information and chart attribute options!
