如何在使用ggplotly时移除悬停显示中的图例条目

install.packages("plotly")
install.packages("ggplot2")

library(plotly)
library(ggplot2)

data <- data.frame(x = c(1, 2, 3), y = c(4, 5, 6), group = c("A", "B", "C"))

p <- ggplot(data, aes(x = x, y = y, color = group)) +
  geom_point() +
  labs(title = "Scatter plot", x = "X", y = "Y")

p <- ggplotly(p)

p <- style(p, legend = list(orientation = "h", x = 0.5, y = -0.2))

p <- layout(p, hovermode = "x")

library(plotly)
library(ggplot2)

data <- data.frame(x = c(1, 2, 3), y = c(4, 5, 6), group = c("A", "B", "C"))

p <- ggplot(data, aes(x = x, y = y, color = group)) +
  geom_point() +
  labs(title = "Scatter plot", x = "X", y = "Y")

p <- ggplotly(p)
p <- style(p, legend = list(orientation = "h", x = 0.5, y = -0.2))
p <- layout(p, hovermode = "x")

p