Как я могу передать значение ключа из графика в пользовательскую функцию? - PullRequest
0 голосов
/ 28 сентября 2019

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

library(plotly)

data_cols <- colnames(mtcars)[6:9]
get_hover_info_fn <- function(x) {
    return(
        paste0(x, ": ", mtcars[which(rownames(mtcars) == key),
                               which(colnames(mtcars) == x)],
               "<br>")
    )
}
plot_ly(data = mtcars,
        type = "scatter",
        mode = "markers",
        x = ~mpg,
        y = ~disp,
        key = rownames(mtcars),
        hoverinfo = "text",
        text = paste0(
            lapply(data_cols, get_hover_info_fn), collapse = " ", sep = "<br>"
            )
        )

Это не похоже на правильный способ использования key в get_hover_info_fn()Моя мысль состоит в том, чтобы иметь возможность отображать наведенную информацию из любой функции и любого количества функций в mtcars, настраивая содержимое data_cols

...