ggplotly() creates a wrong legend in some cases

[aloboa]

Given

d1 <- data.frame(X=1:10, Y= (1:10)^2, b=paste0("B",1:10),d="d1")
d2 <- d1
d2$Y <- d1$Y+2
d2$d <- "d2"
d <- rbind(d1,d2)
gg2 <- ggplot(data=d) +
  geom_point(data=d[d$d=="d1",],aes(x=X, y=Y, label=b,col=d)) +
  geom_line(data=d[d$d=="d2",],aes(x=X, y=Y,col=d))

print(gg) results in:

But
ggplotly(gg)

results in:

I know a more conventional code such as:

d <- rbind(d1,d2)
gg <- ggplot(data=d) +
  geom_point(data=d[d$d=="d1",],aes(x=X, y=Y, label=b,col=d)) +
  geom_line(data=d[d$d=="d2",],aes(x=X, y=Y,col=d))
print(gg)
ggplotly(gg)

results in similar legends, but I wonder if the 1st example is not uncovering a bug in ggplotly()

[romanzenka]

Your more conventional code block appears identical to the first block, except in the first one you refer to gg2 variable and print gg... is that a mistake on your end?

The label=b generates a warning "Ignoring unknown aesthetics: label".

The "conventional" code block works.

Can you revise your first code block and provide code that actually fails for you? It appears to me that you accidentally copied the functional code twice.