如何在使用`ggplotly`将ggplot2转移到图表时更改图例位置？

Question

如下面的代码，我从ggplot中构建了一个情节，并希望改变图例的位置。

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 = ""))

ggplot看起来像

但情节看起来像

部分传奇标题仍位于图表的顶部。

Answer 1

您可以使用legend.position参数：

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))