从情节中删除传说(R情节闪亮)

Question

我创建了一个与奥地利电动汽车市场相关的图:

https://gibraltar.shinyapps.io/esim-v2/

对于这个，我使用shiny作为WebApp托管，而plotly用于一般绘图。

我的问题是我不能删除右边的图例(ePCM)

这是我的代码的服务器端(闪亮和情节语法)。

# Define the server logic
server <- function(input, output) {
# Filter data based on selected car model
filteredData <- reactive({
if (input$carModel == "Alle") {
dataSelection
} else {
dataSelection[dataSelection$CompleteModelName == input$carModel, ]
}
})

# Render the plotly plot
output$plot <- renderPlotly({
evPlot <- plot_ly(
data = filteredData(), x = ~Reichweitenkosten, y = ~RLL,
text = ~CompleteModelName,
color = ~ePCM, size = ~ePCM,
type = "scatter", mode = "markers"
)

# Update x-axis and y-axis range to keep them fixed
evPlot <- evPlot %>% layout(
xaxis = list(range = c(min(dataSelection$Reichweitenkosten), max(dataSelection$Reichweitenkosten)*1.1)),
yaxis = list(range = c(min(dataSelection$RLL), max(dataSelection$RLL)*1.1))
)

evPlot

})
}

你能帮我一下吗?

在许多其他的我尝试解决方案从这些链接。我就是不能去掉这个图例。

• 将图例项水平排列并居中于图的下方
• https://statisticsglobe.com/customize-legend-plotly-graph-r
• https://plotly.com/r/legend/
• 如何在R中隐藏图例中的跟踪
• https://search.r-project.org/CRAN/refmans/plotly/html/hide_legend.html
• https://plotly.com/r/discrete-color/
• 修改图例大小
• https://statisticsglobe.com/change-colors-plotly-graph-r

Answer 1

经过几个小时的浏览，我找到了解决方案:

https://stackoverflow.com/a/61088212/21629420

添加%>% hide_colorbar()成功了。♥