R 条形图和在Ploly中悬停的问题

我目前正在使用R中的Plotly，试图创建一个条形图.下面，你可以找到我的数据和代码.

# Generating artificial data
set.seed(42)  # for reproducibility
n <- 50  # Number of data points
dat <- data.frame(
  PRODUCT_INDUSTRY_CODE = factor(sample(1:10, n, replace = TRUE)),
  revenue_before = runif(n, min = 100, max = 1000),  # Random values for revenue_before
  revenue_after = runif(n, min = 100, max = 1000),   # Random values for revenue_after
  PRODUCT_INDUSTRY_NAME = sample(c("Industry A", "Industry B", "Industry C", "Industry D", "Industry E"), n, replace = TRUE)
)

# Plotting
plt <- plot_ly(dat) %>% 
  add_trace(x = ~PRODUCT_INDUSTRY_CODE,  y = ~revenue_before, type = 'bar', name = 'Tax rate 1',hoverinfo = 'text', text = ~PRODUCT_INDUSTRY_NAME) %>% 
  add_trace(x = ~PRODUCT_INDUSTRY_CODE,  y = ~revenue_after, type = 'bar', name = 'Tax rate 2', hoverinfo = 'text', text = ~PRODUCT_INDUSTRY_NAME) %>% 
  layout(
    xaxis = list(title = ''), 
    yaxis = list(title = ''),
    barmode = 'group',
    title = ' '
  ) %>%
  layout(legend = list(orientation = 'h'))  # Set legend orientation to horizontal

plt

虽然代码成功地生成了条形图，但我遇到了一个新问题.

具体地说，文本出现在图表上的条形图中，这不是预期的结果.

我只希望这个文本是可见时，悬停在wine 吧与鼠标，而不是wine 吧本身.

有谁能就如何解决这个问题提供帮助吗？