Измените цвет точки на клике и оставьте его неизменным, используя R Shiny

Question

Измените цвет точки на клике и оставьте его неизменным, используя R Shiny

1

Я пытаюсь работать над созданием графа, используя плотно. Когда пользователь нажимает на любую точку geom_point на графике, используя R блестящий, он должен изменить цвет и оставить его без изменений.

В настоящее время мой код работает нормально. Когда пользователь нажимает на любую точку geom_point на графике, она меняет цвет. Но когда я нажимаю на другую точку geom_point, предыдущая выделенная точка возвращается к исходному цвету.

    library(shiny)
    library(plotly)
    library(htmlwidgets)

    ui <- fluidPage(
      plotlyOutput("plot")
    )


    javascript <- "
    function(el, x){
      el.on('plotly_click', function(data) {
        colors = [];

        var base_color = document.getElementsByClassName('legendpoints')[data.points[0].curveNumber].getElementsByTagName('path')[0].style['stroke']
        for (var i = 0; i < data.points[0].data.x.length; i += 1) {
          colors.push(base_color)
        };
        colors[data.points[0].pointNumber] = '#FF00FF';
        Plotly.restyle(el,
                       {'marker':{color: colors}},
                       [data.points[0].curveNumber]
                      );
      });
    }"


    server <- function(input, output, session) {

      nms <- row.names(mtcars)

      output$plot <- renderPlotly({
        p <- ggplot(mtcars, aes(x = mpg, y = wt, col = as.factor(cyl), key = nms)) + 
          geom_point()
        ggplotly(p) %>% onRender(javascript)

      })
    }

    shinyApp(ui, server)

Я ожидаю, что когда пользователь нажимает на любую точку geom_point, она должна изменить цвет, и этот цвет должен оставаться до тех пор, пока он не закроет блестящее приложение. цвет не должен возвращаться к своему первоначальному цвету. Возможно, в функцию Javascript нужно внести небольшие изменения. Спасибо!

tarun Mirani 31 янв. 2019, в 21:11

Источник

0

Есть один пункт для каждого подкласса, который остается цветным
Alexander Leow 31 янв. 2019, в 20:00
0

@AlexanderLeow Извините, я новичок в блеске и Р. Я вас не понял. не могли бы вы уточнить? Спасибо!
tarun Mirani 31 янв. 2019, в 20:33

Теги:

javascript

r

shiny

r-plotly

ggplotly

1 ответ

Ещё вопросы

Есть один пункт для каждого подкласса, который остается цветным
@AlexanderLeow Извините, я новичок в блеске и Р. Я вас не понял. не могли бы вы уточнить? Спасибо!

Alexander Leow · Answer 1 · 2019-01-31T18-47-00.000Z

Проблема в том, что вы всегда устанавливаете все точки на основной цвет, а не проверяете, какие цвета имеют фактические точки. Я не эксперт по JavaScript, но это работает для меня:

library(shiny)
library(plotly)
library(htmlwidgets)

ui <- fluidPage(
  plotlyOutput("plot")
)


javascript <- "
function(el, x){
  el.on('plotly_click', function(data) {
    var colors = [];
    // check if color is a string or array
    if(typeof data.points[0].data.marker.color == 'string'){
      for (var i = 0; i < data.points[0].data.marker.color.length; i++) {
        colors.push(data.points[0].data.marker.color);
      }
    } else {
      colors = data.points[0].data.marker.color;
    }
    // some debugging
    //console.log(data.points[0].data.marker.color)
    //console.log(colors)

    // set color of selected point
    colors[data.points[0].pointNumber] = '#FF00FF';
    Plotly.restyle(el,
      {'marker':{color: colors}},
      [data.points[0].curveNumber]
    );
  });
}
"

server <- function(input, output, session) {

  nms <- row.names(mtcars)

  output$plot <- renderPlotly({
    p <- ggplot(mtcars, aes(x = mpg, y = wt, col = as.factor(cyl), key = nms)) + 
      geom_point()
    ggplotly(p) %>% onRender(javascript)

  })
}

shinyApp(ui, server)