如何在使用`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))