R-使用plot_ly()自定义堆叠条形图中标签的字体颜色

library(plotly)

# 创建数据集
data <- data.frame(
  category = c("A", "B", "C"),
  value1 = c(10, 20, 30),
  value2 = c(15, 25, 35),
  value3 = c(5, 15, 25)
)

# 创建堆叠条形图
plot <- plot_ly(data, x = ~category, y = ~value1, type = 'bar', name = 'Value 1') %>%
  add_trace(y = ~value2, name = 'Value 2') %>%
  add_trace(y = ~value3, name = 'Value 3')

# 自定义标签字体颜色
plot <- plot %>% layout(
  xaxis = list(title = 'Category'),
  yaxis = list(title = 'Value'),
  barmode = 'stack',
  annotations = list(
    x = ~category,
    y = ~value1 + value2 + value3,
    text = ~paste(value1, value2, value3, sep = " / "),
    showarrow = FALSE,
    font = list(color = 'white') # 设置字体颜色为白色
  )
)

# 显示图表
plot