我正在阅读使用代理来添加新系列到现有图表。对于一个特定的图表,我不想添加全新的系列,而是想在现有的图表上强调一点,即通过改变颜色,比如说红色。我不知道该怎么做。如何以这种方式更改图表的选项?
框架代码:
library(shiny)
library(echarts4r)
df <- data.frame(
x = 1:5,
y = runif(n = 1:5, min = 50, max = 200)
)
ui <- fluidPage(
echarts4rOutput("chart"),
actionButton("changecolor", "Change color of third bar"),
actionButton("removecolor", "Remove color of third bar")
)
server <- function(input, output){
output$chart <- renderEcharts4r({
e_charts(df, x) |>
e_bar(y)
})
observeEvent(input$changecolor, {
echarts4rProxy("chart") # What now?
})
}
shinyApp(ui, server)
1条答案
按热度按时间vs91vp4v1#
下面是一个工作示例,它可以实现您想要的功能: