我创作了奥地利电动车市场相关的剧情：
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
})
}
你能帮帮我吗？
在许多其他人中，我尝试了这些链接中的解决方案。 我只是无法删除图例。