如何使我的ggplotly tootip在轴对数变换时显示原始值

library(ggplot2)
p <- ggplot(data, aes(x = x, y = y)) + geom_point()

library(plotly)
p <- ggplotly(p)

p <- p %>% layout(yaxis = list(type = "log"))

p <- p %>% layout(hovermode = "closest", hoverinfo = "text", 
                  tooltip = list(text = ~paste("x:", x, "<br>y:", y)))

library(ggplot2)
library(plotly)

# 创建ggplot2图形对象
p <- ggplot(data, aes(x = x, y = y)) + geom_point()

# 转换为plotly图形对象
p <- ggplotly(p)

# 对y轴进行对数变换
p <- p %>% layout(yaxis = list(type = "log"))

# 设置tooltip显示原始值
p <- p %>% layout(hovermode = "closest", hoverinfo = "text", 
                  tooltip = list(text = ~paste("x:", x, "<br>y:", y)))

# 显示图形
p