How to change the legend position when transfer ggplot2 to plotly using `ggplotly`?

Question

As the code below, I constructed a plotly from a ggplot, and want to change the position of the legend.

df <- data.frame(n=1:10, Var1 = rnorm(10), Var2 = rnorm(10))
data_long <- melt(df, id = "n")
a <- ggplot(data_long, 
            aes(x = n, y = value, colour = variable, group = variable)) + 
      geom_line() 
ggplotly(a) %>% layout(legend = list(x = 0, y = 0), yaxis = list(title = ""))

The ggplot looks like

But the plotly looks like

Part of the legend title is still on the top of the graph.

Answer 1

You can use legend.position argument:

a <- ggplot(data_long,
            aes(x = n, y = value, colour = variable, group = variable)) +
    geom_line() +
    theme(legend.justification=c(0,0), legend.position=c(0,0))