带下拉菜单的R Plotly图表遇缺失y值时显示异常求助

问题出在使用Plotly的transforms结合restyle方法时，NA值会干扰全局数据的渲染逻辑。改用为每个分组单独创建独立trace的方式，能让各分组数据相互隔离，NA值仅影响对应分组的显示，不会波及其他组，同时满足保留NA作为空白点的需求。

修改后的代码如下：

library(plotly)
library(data.table)

tmpdata <- as.data.table(iris)
tmplevels <- unique(tmpdata$Species)
tmpdata <- tmpdata[order(Species, Petal.Width, Sepal.Length)]
tmpdata <- unique(tmpdata, by = c("Species", "Petal.Width"))
tmpdata[4:5, Sepal.Length := NA]

# 初始化空图表，不设置全局transforms
plot <- plot_ly()

# 为每个Species分组添加独立的trace
for (sp in tmplevels) {
  plot <- plot %>%
    add_trace(
      data = tmpdata[Species == sp],
      x = ~Petal.Width,
      y = ~Sepal.Length,
      type = 'scatter',
      mode = 'markers+lines',
      name = sp,
      visible = (sp == tmplevels[1])  # 默认仅显示第一个分组
    )
}

# 构建下拉菜单按钮逻辑
buttons <- lapply(tmplevels, function(sp) {
  list(
    method = 'restyle',
    args = list('visible', tmplevels == sp),  # 仅当前分组可见，其余隐藏
    label = sp
  )
})

# 配置下拉菜单布局
plot <- plot %>%
  layout(
    updatemenus = list(
      list(
        type = 'dropdown',
        active = 0,
        y = 1.12,
        x = 0.5,
        xanchor = "center",
        buttons = buttons
      )
    )
  )

plot

关键说明： #

• 每个分组对应独立的trace，数据完全隔离，NA值只会在对应分组的线条中产生断点，不会影响其他分组的正常渲染
• 下拉菜单通过restyle控制visible参数，精准切换各trace的显示状态
• Plotly默认会在y值为NA的位置断开线条，同时不显示该点，符合你保留空白点的需求

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