R语言Plotly数值标签箱线图重叠及位置偏移问题咨询

问题现象与代码重现 #

使用Plotly绘制按数值（或转字符的数值）变量分组的箱线图时出现异常：

• 首个箱线图绘制在位置0而非1，标签为“5 - most”的箱线图覆盖了位置4的图形
• 但分组列为非数值类型时，箱线图可正常并排显示且标签正确

测试环境：

• R 4.2.2（MacOS 13.4，plotly 4.10.1、ggplot2 3.4.2）
• R 4.0.2（x86_64，plotly 4.10.2、ggplot2 3.4.2）

重现代码：

library(plotly)

colors <- c("red","blue","green","pink","brown")
data.in <- data.frame(Age=25*rnorm(100)+50, IMD=sample(5,100,replace=TRUE))
fig <- plot_ly(data=data.in[data.in$IMD == "1",], y=~Age, type="box", color=I(colors[1]),name="1 - least")
fig <- fig %>% add_trace(data=data.in[data.in$IMD == "2",], y=~Age, type="box", color=I(colors[2]),name="2")
fig <- fig %>% add_trace(data=data.in[data.in$IMD == "3",], y=~Age, type="box", color=I(colors[3]),name="3")
fig <- fig %>% add_trace(data=data.in[data.in$IMD == "4",], y=~Age, type="box", color=I(colors[4]),name="4")
fig <- fig %>% add_trace(data=data.in[data.in$IMD == "5",], y=~Age, type="box", color=I(colors[5]),name="5 - most")
fig <- fig %>% layout(yaxis = list(title = "Age"),
                      xaxis = list(title = "IMD"),
                      boxgap = 0.1, boxgroupgap=0)

疑问 #

1. 该异常是否为Plotly处理数字转字符标签的Bug？
2. 是否可手动指定箱线图的绘制位置，将位置0的图移至1，将应在5位置的图调整至正确位置以避免重叠？

一、是否为Plotly的Bug？ #

这确实是Plotly处理数值型分组时的逻辑缺陷：当用add_trace逐个添加箱线图，且分组变量为数值类型时，Plotly会默认将分组值当作连续型数值处理，而非离散分类标签。

• 第一个trace筛选IMD == "1"时，原数据中IMD是整数，字符串"1"被强制转为数值1，但Plotly初始化x轴时误将起始点设为0；
• 最后一个trace的IMD == "5"被识别为数值5，但x轴默认范围仅到4，导致它覆盖在位置4的图形上。
  这种行为属于Plotly在混合使用数值型分组和手动添加trace时的适配问题，可视为Bug。

二、手动指定箱线图位置的解决方法 #

有两种可行方案：

方案1：将分组变量转为因子类型（推荐） #

直接把IMD转为因子，Plotly会自动识别为离散分类，无需手动指定位置：

library(plotly)

colors <- c("red","blue","green","pink","brown")
data.in <- data.frame(Age=25*rnorm(100)+50, IMD=sample(5,100,replace=TRUE))
# 将IMD转为因子，指定水平顺序与标签
data.in$IMD <- factor(data.in$IMD, levels = 1:5, labels = c("1 - least", "2", "3", "4", "5 - most"))

# 直接用分组参数绘制，无需逐个add_trace
fig <- plot_ly(data = data.in, y = ~Age, x = ~IMD, type = "box", color = ~IMD, colors = colors)
fig <- fig %>% layout(yaxis = list(title = "Age"),
                      xaxis = list(title = "IMD"),
                      boxgap = 0.1, boxgroupgap=0)

方案2：手动指定每个trace的x位置 #

如果坚持用逐个add_trace的方式，可以给每个trace添加x参数指定位置，同时在layout中手动设置x轴刻度标签：

library(plotly)

colors <- c("red","blue","green","pink","brown")
data.in <- data.frame(Age=25*rnorm(100)+50, IMD=sample(5,100,replace=TRUE))
# 手动指定每个箱线图的x位置（1-5）
fig <- plot_ly(data=data.in[data.in$IMD == 1,], y=~Age, x=1, type="box", color=I(colors[1]),name="1 - least")
fig <- fig %>% add_trace(data=data.in[data.in$IMD == 2,], y=~Age, x=2, type="box", color=I(colors[2]),name="2")
fig <- fig %>% add_trace(data=data.in[data.in$IMD == 3,], y=~Age, x=3, type="box", color=I(colors[3]),name="3")
fig <- fig %>% add_trace(data=data.in[data.in$IMD == 4,], y=~Age, x=4, type="box", color=I(colors[4]),name="4")
fig <- fig %>% add_trace(data=data.in[data.in$IMD == 5,], y=~Age, x=5, type="box", color=I(colors[5]),name="5 - most")
# 设置x轴刻度和对应标签
fig <- fig %>% layout(yaxis = list(title = "Age"),
                      xaxis = list(title = "IMD", tickmode = "array",
                                   tickvals = 1:5,
                                   ticktext = c("1 - least", "2", "3", "4", "5 - most")),
                      boxgap = 0.1, boxgroupgap=0)

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