R Shiny：当使用renderPlotly时，图例会分裂

huangapple
go评论99阅读模式
英文:

R Shiny: the legend splits when renderPlotly is used

问题

我注意到一个奇怪的现象，renderPlotly可以将相同变量的图例分开。

例如，当使用renderPlot()时，生成的图表如下所示：R Shiny：当使用renderPlotly时，图例会分裂
然而，如果我尝试将其转换为Plotly对象，它会变成这样：
R Shiny：当使用renderPlotly时，图例会分裂

有人知道发生了什么，以及如何解决这个问题吗？谢谢！

英文:

I noticed a strange phenomenon that renderPlotly can split the legend of the same variable.

For example, when renderPlot() is used, the produced graph looks like this:R Shiny：当使用renderPlotly时，图例会分裂
However, if I tried to convert it into a plotly object, it changed into this:
R Shiny：当使用renderPlotly时，图例会分裂

Does anyone know what is going on and how to fix this problem? Thank you!
ggplot version:

  1. library(shiny)
  2. library(plotly)
  4. ColorblindnessFriendlyValues <- c("Same" = "#648FFF", "Alt" = "#FFB000")
  6. ui <- fluidPage(
  7.   sidebarLayout(
  8.     sidebarPanel(
  9.       sliderInput("crossloadings", "Number Crossloadings",
  10.                   min = 1, max = 10, value = 5),
  11.       sliderInput("group1", "Group 1",
  12.                   min = 0, max = 1, value = 0.5),
  13.       sliderInput("group2", "Group 2",
  14.                   min = 0, max = 1, value = 0.5)
  15.     ),
  16.     mainPanel(
  17.       plotlyOutput("plot") # Changed here
  18.     )
  19.   )
  20. )
  22. server <- function(input, output) {
  23.   output$plot <- renderPlotly({
  24.     number_crossloadings <- seq(1, input$crossloadings)
  25.     group1 <- runif(input$crossloadings, min = 0, max = input$group1)
  26.     group2 <- runif(input$crossloadings, min = 0, max = input$group2)
  28.     results <- data.frame(number_crossloadings, group1, group2)
  30.     plot <- ggplot(data=results, aes(x=number_crossloadings))+
  31.       geom_line(aes(y=group1,
  32.                     color="Same"))+
  33.       geom_line(aes(y=group2,color="Alt"))+
  34.       suppressWarnings(geom_point(aes(y=group1,
  35.                                       color="Same",
  36.                                       shape = "Same",
  37.                                       text = paste0("# of cross Loadings: ", number_crossloadings,
  38.                                                     "<br>SRMR: ", sprintf('%.3f', group1)))))+
  39.       suppressWarnings(geom_point(aes(y=group2,
  40.                                       color="Alt",
  41.                                       shape = "Alt",
  42.                                       text = paste0("# of cross Loadings: ", number_crossloadings,
  43.                                                     "<br>SRMR: ", sprintf('%.3f', group2)))))+
  44.       scale_color_manual(values = ColorblindnessFriendlyValues, labels = c("Same", "Alt")) +
  45.       scale_shape_manual(values = c("Same" = 16, "Alt" = 17), labels = c("Same", "Alt")) +
  46.       geom_abline(color="grey",slope=0, intercept=0.08) +
  47.           labs(color = "Legend", shape = "Legend")  +
  48.       ylim(NA,1)
  50.       ggplotly(plot,tooltip = c("text"))
  52.     })
  53. }
  55. shinyApp(ui, server)

Plotly version:

  1. library(shiny)
  2. library(plotly)
  4. ColorblindnessFriendlyValues <- c("Same" = "#648FFF", "Alt" = "#FFB000")
  6. ui <- fluidPage(
  7.   sidebarLayout(
  8.     sidebarPanel(
  9.       sliderInput("crossloadings", "Number Crossloadings",
  10.                   min = 1, max = 10, value = 5),
  11.       sliderInput("group1", "Group 1",
  12.                   min = 0, max = 1, value = 0.5),
  13.       sliderInput("group2", "Group 2",
  14.                   min = 0, max = 1, value = 0.5)
  15.     ),
  16.     mainPanel(
  17.       plotOutput("plot")
  18.     )
  19.   )
  20. )
  22. server <- function(input, output) {
  23.   output$plot <- renderPlot({
  24.     number_crossloadings <- seq(1, input$crossloadings)
  25.     group1 <- runif(input$crossloadings, min = 0, max = input$group1)
  26.     group2 <- runif(input$crossloadings, min = 0, max = input$group2)
  28.     results <- data.frame(number_crossloadings, group1, group2)
  30.     plot <- ggplot(data=results, aes(x=number_crossloadings))+
  31.       geom_line(aes(y=group1, color="Same"))+
  32.       geom_line(aes(y=group2,color="Alt"))+
  33.       suppressWarnings(geom_point(aes(y=group1,
  34.                                       color="Same",
  35.                                       shape = "Same",
  36.                                       text = paste0("# of cross Loadings: ", number_crossloadings,
  37.                                                     "<br>SRMR: ", sprintf('%.3f', group1)))))+
  38.       suppressWarnings(geom_point(aes(y=group2,
  39.                                       color="Alt",
  40.                                       shape = "Alt",
  41.                                       text = paste0("# of cross Loadings: ", number_crossloadings,
  42.                                                     "<br>SRMR: ", sprintf('%.3f', group2)))))+
  43.       scale_color_manual(values = ColorblindnessFriendlyValues, labels = c("Same", "Alt")) +
  44.       scale_shape_manual(values = c("Same" = 16, "Alt" = 17), labels = c("Same", "Alt")) +
  45.       geom_abline(color="grey",slope=0, intercept=0.08) +
  46.       labs(color = "Legend", shape = "Legend")  +
  47.       ylim(NA,1)
  49.     plot
  50.   })
  51. }
  53. shinyApp(ui, server)

答案1

得分: 1

Whenever the translation ggplot <-> plotly does not yield the results I want, I use plot_ly directly as it allows for finer control.

Having said that, you can generate a similar plot with plot_ly like this (N.B. I changed your data structure a bit to avoid some duplication):

  1. output$plot <- renderPlotly({
  2.    number_crossloadings <- seq(1, input$crossloadings)
  3.    group1 <- runif(input$crossloadings, min = 0, max = input$group1)
  4.    group2 <- runif(input$crossloadings, min = 0, max = input$group2)
  5.    results <- data.frame(x = rep(number_crossloadings, 2),
  6.                          y = c(group1, group2),
  7.                          g = rep(c("Same", "Alt"), each = input$crossloadings))
  8.    plot_ly(results, 
  9.            x = ~ x, 
  10.            y = ~ y, 
  11.            colors = ColorblindnessFriendlyValues, 
  12.            symbols = c("triangle-up",  "circle"))  %>%
  13.       add_trace(type = "scatter", 
  14.                 mode = "lines", 
  15.                 showlegend = FALSE, 
  16.                 hoverinfo = "none",
  17.                 color = I("gray"), 
  18.                 x = range(results$x) + c(-1, 1) * .2, 
  19.                 y = c(.08, .08)) %>%
  20.       add_trace(type = "scatter", 
  21.                 mode = "markers+lines", 
  22.                 color = ~ g, 
  23.                 symbol = ~ g, 
  24.                 marker = list(size = 8),
  25.                 hoverinfo = "text",
  26.                 text = ~ paste0("# of cross Loadings: ", number_crossloadings,
  27.                                 "<br>SRMR: ", sprintf("%.3f", y))) %>%
  28.       layout(legend = list(title = list(text = "Legend")),
  29.              xaxis = list(title = list(text = "number_crossloadings")),
  30.              yaxis = list(title = list(text = "y")))
  31. })

R Shiny：当使用renderPlotly时，图例会分裂

Abline

I used a separate trace for the abline, another option would be to add a shape to layout like this:

  1. layout(
  2.    #...
  3.    shapes = list(
  4.       list(
  5.          type = "rect",
  6.          x0 = 0,
  7.          x1 = 1,
  8.          xref = "paper",
  9.          y0 = 0.08,
  10.          y1 = 0.08,
  11.          yref = "y",
  12.          line = list(dash = "solid",
  13.                      color = "grey"),
  14.          layer = "below"
  15.       )
  16.    )
  17. )
英文:

Whenever the translation ggplot <-> plotly does not yield the results I want, I use plot_ly directly as it allows for finer control.

Having said that, you can generate a similar plot with plot_ly like this (N.B. I changed your data structure a bit to avoid some duplication):

  1. output$plot &lt;- renderPlotly({
  2.    number_crossloadings &lt;- seq(1, input$crossloadings)
  3.    group1 &lt;- runif(input$crossloadings, min = 0, max = input$group1)
  4.    group2 &lt;- runif(input$crossloadings, min = 0, max = input$group2)
  5.    results &lt;- data.frame(x = rep(number_crossloadings, 2),
  6.                          y = c(group1, group2),
  7.                          g = rep(c(&quot;Same&quot;, &quot;Alt&quot;), each = input$crossloadings))
  8.    plot_ly(results, 
  9.            x = ~ x, 
  10.            y = ~ y, 
  11.            colors = ColorblindnessFriendlyValues, 
  12.            symbols = c(&quot;triangle-up&quot;,  &quot;circle&quot;))  %&gt;% 
  13.       add_trace(type = &quot;scatter&quot;, 
  14.                 mode = &quot;lines&quot;, 
  15.                 showlegend = FALSE, 
  16.                 hoverinfo = &quot;none&quot;,
  17.                 color = I(&quot;gray&quot;), 
  18.                 x = range(results$x) + c(-1, 1) * .2, 
  19.                 y = c(.08, .08)) %&gt;% 
  20.       add_trace(type = &quot;scatter&quot;, 
  21.                 mode = &quot;markers+lines&quot;, 
  22.                 color = ~ g, 
  23.                 symbol = ~ g, 
  24.                 marker = list(size = 8),
  25.                 hoverinfo = &quot;text&quot;,
  26.                 text = ~ paste0(&quot;# of cross Loadings: &quot;, number_crossloadings,
  27.                                 &quot;&lt;br&gt;SRMR: &quot;, sprintf(&quot;%.3f&quot;, y))) %&gt;% 
  28.       layout(legend = list(title = list(text = &quot;Legend&quot;)),
  29.              xaxis = list(title = list(text = &quot;number_crossloadings&quot;)),
  30.              yaxis = list(title = list(text = &quot;y&quot;))
  31. })

R Shiny：当使用renderPlotly时，图例会分裂

Abline

I used a separate trace for the abline, another option would be to add a shape to layout like this:

  1. layout(
  2.    #...
  3.    shapes = list(
  4.       list(
  5.          type = &quot;rect&quot;,
  6.          x0 = 0,
  7.          x1 = 1,
  8.          xref = &quot;paper&quot;,
  9.          y0 = 0.08,
  10.          y1 = 0.08,
  11.          yref = &quot;y&quot;,
  12.          line = list(dash = &quot;solid&quot;,
  13.                      color = &quot;grey&quot;),
  14.          layer = &quot;below&quot;
  15.       )
  16.    )
  17. )

huangapple
  • 本文由 发表于 2023年5月11日 08:44:20
  • 转载请务必保留本文链接：https://go.coder-hub.com/76223433.html
  • ggplotly
  • plotly
  • r
  • shiny
匿名

发表评论

匿名网友

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen:

确定