英文:
Use proxies in echarts4r to change color of specific bar
问题
我正在研究如何使用代理将新系列添加到现有图表中。对于特定的图表，我想强调现有系列中的某一点，比如通过改变颜色，比如改成红色。我没有找到如何做到这一点的方法。我该如何以这样的方式更改图表的选项？骨架代码：
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") # 然后呢？
})
}
shinyApp(ui, server)
<details><summary>英文:</summary>I'm reading up on using proxies to add new series to existing charts. For a specific graph, instead of adding brand new series, I'd like to emphasize a certain point on existing one, namely by changing color, let's say to red.I didn't manage to figure out how to do it. How can I change a chart's options in such a way?Skeleton code:
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)
</details># 答案1**得分**: 1这是一个可以实现你想要的功能的示例代码：```rlibrary(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){color <- reactiveVal("'blue'")observeEvent(input$changecolor, {color("'red'")})observeEvent(input$removecolor, {color("'blue'")})output$chart <- renderEcharts4r({e_charts(df, x) |>e_bar(y,itemStyle = list(color = htmlwidgets::JS(paste0("function(params) {var colorList = ['blue', 'blue',",color(), ", 'blue', 'blue']; return colorList[params.dataIndex]}")))) |e_legend(FALSE)})}shinyApp(ui, server)
请注意，代码中的中文字符已保留在原文中。
英文:
Here is a working example that does what you want:
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){color <- reactiveVal("'blue'")observeEvent(input$changecolor, {color("'red'")})observeEvent(input$removecolor, {color("'blue'")})output$chart <- renderEcharts4r({e_charts(df, x) |>e_bar(y,itemStyle = list(color = htmlwidgets::JS(paste0("function(params) {var colorList = ['blue', 'blue',",color(), ", 'blue', 'blue']; return colorList[params.dataIndex]}")))) |>e_legend(FALSE)})}shinyApp(ui, server)
通过集体智慧和协作来改善编程学习和解决问题的方式。致力于成为全球开发者共同参与的知识库，让每个人都能够通过互相帮助和分享经验来进步。
评论