R Shiny中renderPlotly致同变量图例拆分问题求助

在R Shiny中使用renderPlotly时，同一变量的图例会被拆分：用renderPlot()生成的图表图例显示正常，但转换为Plotly对象后，同一个分组（如"Same"）会拆分成线条和点两个独立的图例项。

原因分析 #

问题出在数据格式和图层映射逻辑上：

• 原代码采用宽格式数据，分别通过geom_line和geom_point为group1和group2单独添加图层，每个图层都独立映射了color和shape参数。
• 原生ggplot会自动合并同分组的线条、点图例，但ggplotly()转换时，会把每个geom图层视为独立的trace，导致同一分组的线条和点被拆分成两个图例条目。

解决方法 #

最规范的解决方式是将数据转换为长格式，统一映射分组变量，让ggplot只用一组geom_line和geom_point，这样ggplotly()就能正确识别并合并图例。

修正后的代码 #

library(shiny)
library(plotly)
library(tidyr) # 用于数据转长格式

ColorblindnessFriendlyValues <- c("Same" = "#648FFF", "Alt" = "#FFB000")

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput("crossloadings", "Number Crossloadings",
                  min = 1, max = 10, value = 5),
      sliderInput("group1", "Group 1",
                  min = 0, max = 1, value = 0.5),
      sliderInput("group2", "Group 2",
                  min = 0, max = 1, value = 0.5)
    ),
    mainPanel(
      plotlyOutput("plot")
    )
  )
)

server <- function(input, output) {
  output$plot <- renderPlotly({
    number_crossloadings <- seq(1, input$crossloadings)
    group1 <- runif(input$crossloadings, min = 0, max = input$group1)
    group2 <- runif(input$crossloadings, min = 0, max = input$group2)

    # 将宽格式数据转为长格式
    results <- data.frame(number_crossloadings, group1, group2) %>%
      pivot_longer(cols = c(group1, group2),
                   names_to = "group",
                   values_to = "value") %>%
      mutate(group = ifelse(group == "group1", "Same", "Alt")) # 匹配原分组名称

    plot <- ggplot(data=results, aes(x=number_crossloadings))+
      geom_line(aes(y=value, color=group))+
      suppressWarnings(geom_point(aes(y=value,
                                      color=group,
                                      shape=group,
                                      text = paste0("# of cross Loadings: ", number_crossloadings,
                                                    "<br>SRMR: ", sprintf('%.3f', value)))))+ 
      scale_color_manual(values = ColorblindnessFriendlyValues, labels = c("Same", "Alt")) +
      scale_shape_manual(values = c("Same" = 16, "Alt" = 17), labels = c("Same", "Alt")) +
      geom_abline(color="grey",slope=0, intercept=0.08) +
      labs(color = "Legend", shape = "Legend")  +
      ylim(NA,1)

    ggplotly(plot,tooltip = c("text"))
  })
}

shinyApp(ui, server)

备选方案（不修改数据格式） #

如果不想调整数据结构，也可以通过plotly::style()手动设置trace的图例分组，将同分组的线条和点归为一组：

p <- ggplotly(plot,tooltip = c("text")) %>%
  style(showlegend = TRUE, legendgroup = "Same", traces = c(1,3)) %>%
  style(showlegend = TRUE, legendgroup = "Alt", traces = c(2,4)) %>%
  layout(legend = list(tracegroupgap = 0))

这种方式需要手动指定trace索引，灵活性较差，适合临时场景。

内容的提问来源于stack exchange，提问作者karyn-h