Я пытаюсь настроить отображение информации во всплывающей подсказке, используя следующий код:
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