fix yanchor of legend title

cpsievert · cpsievert · commit cd93ab303efa · 2016-11-02T16:25:48.000-05:00
diff --git a/R/ggplotly.R b/R/ggplotly.R
@@ -662,7 +662,7 @@ gg2list <- function(p, width = NULL, height = NULL, tooltip = "all",
         y = gglayout$legend$y %||% 1,
         theme$legend.title,
         xanchor = "left",
-        yanchor = "top",
+        yanchor = "bottom",
         # just so the R client knows this is a title
         legendTitle = TRUE
       )

Original file line number	Diff line number	Diff line change
`@@ -662,7 +662,7 @@ gg2list <- function(p, width = NULL, height = NULL, tooltip = "all",`
`662`	`662`	`y = gglayout$legend$y %\|\|% 1,`
`663`	`663`	`theme$legend.title,`
`664`	`664`	`xanchor = "left",`
`665`		`- yanchor = "top",`
	`665`	`+ yanchor = "bottom",`
`666`	`666`	`# just so the R client knows this is a title`
`667`	`667`	`legendTitle = TRUE`
`668`	`668`	`)`