ggplot在陰謀缺失的傳說

Question

我很難得到一個傳奇，以陰謀出現，特別是與ggplot + geom_line。

我使用plotly 3.6.0和ggplot2 2.1.0

爲了證明我的問題，我將建立一個簡單的數據幀：

x = 1:5 
y1 = 1:5 
y2 = y1 * 2 
d = data.frame(x, y1, y2) 

g = ggplot(data = d, aes(x=x)) + 
geom_line(aes(y = y1, col = 'y1')) + 
geom_line(aes(y = y2, col = 'y2')) + 
scale_color_manual(values = c('red', 'blue'), labels = c('y1 lab', 'y2 lab'), name = '') 
g 

這將創建一個傳奇人物ggplot。但是，當我嘗試使用情節創建交互式版本時，圖例不再存在。

ggplotly(g) 

我嘗試以下解決問題：

g_build = plotly_build(g) 
g_build$layout$showlegend <- TRUE 
g_build$layout$margin <- list(l=80, r=300, b=80, t=100, pad=0) 
g_build 

Answer 1

library(reshape2) 

d<-melt(d,id="x") 
g <- ggplot(data = d, aes(x=x, y=value, color=variable)) + 
    geom_line() +scale_color_manual(values = c('red', 'blue'), 
            labels = c('y1 lab', 'y2 lab'), name = '') 
ggplotly(g)