legend title

mahdis-z · mahdis-z · commit e6d0cb19e21c · 2020-02-26T13:05:11.000-05:00
diff --git a/r/2015-07-30-legend.Rmd b/r/2015-07-30-legend.Rmd
@@ -162,6 +162,30 @@ fig <- fig %>% add_trace(y = ~Tree4, name = 'Tree 4')
 fig <- fig %>% add_trace(y = ~Tree5, name = 'Tree 5')
 fig <- fig %>% layout(legend = l)
 
+fig
+```
+### Legend Title
+
+```{r}
+library(plotly)
+
+fig <- plot_ly(
+  type='scatter',
+  mode='line',
+  x=c(1, 2, 3, 4, 5),
+  y=c(1, 2, 3, 4, 5),
+  name="Increasing"
+)
+
+fig <- fig %>% add_trace(
+  type='scatter',
+  mode='line',
+  x=c(1, 2, 3, 4, 5),
+  y=c(5, 4, 3, 2, 1),
+  name="Decreasing"
+) 
+
+fig <- fig %>% layout(legend=list(title=list(text='<b> Trend </b>')))
 fig
 ```
 
