Plotly R绘制分组柱状图：悬停文本显示异常问题求助

问题出在你直接使用了text参数——Plotly里这个参数会默认把文本渲染在柱子内部。要实现仅鼠标悬停时显示行业名称，只需要把文本内容放到hovertext参数里即可，同时保留hoverinfo来控制悬停信息的显示逻辑。

修改后的完整代码如下：

# 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', hovertext = ~PRODUCT_INDUSTRY_NAME) %>% 
  add_trace(x = ~PRODUCT_INDUSTRY_CODE,  y = ~revenue_after, type = 'bar', 
            name = 'Tax rate 2', hoverinfo = 'text', hovertext = ~PRODUCT_INDUSTRY_NAME) %>% 
  layout(
    xaxis = list(title = ''), 
    yaxis = list(title = ''),
    barmode = 'group',
    title = ' '
  ) %>%
  layout(legend = list(orientation = 'h'))  # Set legend orientation to horizontal

plt

关键修改点： #

• 将原来的text = ~PRODUCT_INDUSTRY_NAME替换为hovertext = ~PRODUCT_INDUSTRY_NAME，这个参数专门用于定义悬停时显示的文本内容，不会在柱子上直接渲染
• 保留hoverinfo = 'text'可以确保悬停时只显示我们设置的行业名称；如果需要同时显示营收数值，可以改成hoverinfo = 'y+text'，这样悬停时会同时展示y轴的营收数据和行业名称

内容的提问来源于stack exchange，提问作者silent_hunter