R plotly customdata format variations-CodePudding

The As can be seen, a single and correct custom data shows up when clicking on each point. The structure of the customdata is similar to other plots.

However, when z is entered as a numerical variable, the structure of the customdata behaves bizarrely:

X <- data.frame(x = c(1, 2, 1, 2), y = c(1, 1, 2, 2), z = 1:4, mydata = letters[1:4]) gg <- ggplot(X, aes(x = x, y = y, customdata = mydata)) geom_tile(aes(fill = z)) ggplotly(gg) %>% onRender(js)

Is this a bug? How can I fix this? In fact, my dataset is much larger than the one in this example.

CodePudding user response：

This is a workaround based on the pointIndex.

I'm calculating the vector index for customdata based on the provided pointIndex:

library(plotly) library(htmlwidgets) js <- "function(el, x) { el.on('plotly_click', function(d) { var zdimensions = [ 0, 0 ]; var vecindex = 0; var clickedcustomdata = ''; var zdimensions = [ d.points[0].data.z.length, d.points[0].data.z[0].length ]; vecindex = d.points[0].pointIndex[0]*zdimensions[1] d.points[0].pointIndex[1]; clickedcustomdata = d.points[0].data.customdata[vecindex]; console.log(clickedcustomdata); }); }" X <- data.frame(x = c(1, 2, 1, 2, 1, 2), y = c(1, 1, 2, 2, 3, 3), z = 1:6, mydata = letters[1:6]) gg <- ggplot(X, aes(x = x, y = y, customdata = mydata)) geom_tile(aes(fill = z)) fig <- ggplotly(gg) %>% onRender(js) fig

This was useful to get here.

Still I'd encourage you to file an issue on GitHub, so this is fixed officially.