r - ggplotly で結合された geom_bar と geom_point の凡例

Question

両方のバーの凡例とポイント (インジケーターの変化) を組み合わせたバー + ポイント チャートを取得しようとしています。geom_bar と geom_point を組み合わせたプロットの ggplot2 の凡例に従って、geom_point に形状を導入しようとしました (そうしないと、ポイントの凡例を取得できませんでした)。

library(ggplot2)
library(dplyr)
library(ggthemes)
library(plotly)

set.seed(369)

obs <- 6

values1 <- c(round(100 + rnorm(obs) * 10, 2))
values2 <- c(round(100 + rnorm(obs) * 10, 2))

df <- data.frame(Year = rep(2014:2019, 2*2), 
                 value = c(rep(values1, 2), rep(values2, 2)),
                 Indicator = rep(c("Indicator1", "Indicator2"), each = obs * 2),
                 Type = rep(c("Bar", "Point"), each = obs))

p <- ggplot(df, aes(value))

bars <- df  %>%
  filter(Type == "Bar")

points <- df  %>%
  filter(Type == "Point")

pl <- p +
  geom_bar(data = bars,
           aes(fill = Indicator, group = Indicator, x = Year, y = value), stat = "identity", position = "dodge") +
  geom_point(data = points,  aes(x = Year, y = value, group = Indicator, fill = Indicator, shape = "Change"), position = position_dodge(width = 0.9)) +
  theme_tufte() 

p
ggplotly(pl, tooltip = c("value"))

ggplotly には必要な出力がありますが、凡例には奇妙なグループがあります。下のチャートの凡例を修正する方法はありますか?