如何在 Plotly 中记录颜色的变换值但在颜色条上保留原始值？

Question

我正在尝试在 Plotly 图表上记录定义颜色的转换值，但我想在 Plotly 颜色条图例上保留原始值（不是对数转换后的数字）以提高可读性。

这是我在 mtcars 数据集上尝试做的示例：

mtcars %>% plot_ly(x = ~hp, 
               y = ~qsec,                                                                        
               size = ~disp,
               color = ~mpg)

你会得到这个图表：

假设我想使用以下代码记录变换颜色变量 (mpg)：

mtcars %>% plot_ly(x = ~hp, 
               y = ~qsec,                                                                        
               size = ~disp,
               color = ~log(mpg))

我会得到这个图表：

我现在对图表很满意，但现在右侧的颜色条有 log() 数字。

我的问题是：如何在图表上对颜色变量进行 log() 转换 但保留颜色栏上的原始数字并适当调整为新的日志颜色？

所以，一方面，我想在第二张图片颜色条上使用原始数字，而不是 2.5、3 和 3.5，但另一方面，我想保留这些颜色的位置数字，因为它们在对数刻度上并且不使用 ggplotly。

Answer 1

类似于this answer，这是一个使用转换值作为颜色条刻度的问题，但未转换的值作为标签。

这是一个选项：

library(dplyr)
library(plotly)

# Define pretty breaks on transformed scale
brks_transformed <- pretty(log10(mtcars$mpg), n = 5)

# Breaks on the untransformed scale
brks_untransformed <- sprintf("%.1f", 10^brks_transformed)

mtcars %>% 
    plot_ly(
        x = ~hp, y = ~qsec, size = ~ disp, fill = ~ "",
        type = "scatter",
        mode = "markers",
        marker = list(
            color = ~ log10(mpg),
            line = list(width = 0),
            colorbar = list(
                tickmode = "array",
                ticktext = brks_untransformed,
                tickvals = brks_transformed)))