r - ggplotly 和 lubridate : Hoover shows seconds, 不是分钟

Question

我使用 ggplot 和以下 data.frame 创建了一个箱线图:

library(lubridate)
library(ggplot2)
library(ggplotly)

df <- data.frame(
  time = c("00:43:20", "00:44:30","00:45:40"),
  sex = c("m","m","m")
)

df$sex <- factor(df$sex)
df$time <- lubridate::hms(df$time)

现在我用 ggplot 创建了箱线图

g <- ggplot(df) +
  geom_boxplot(aes(sex, time)) +
  scale_y_time()

一切看起来都很好，现在可以与 ggploty() 进行交互:

plotly::ggplotly(g)

但是当我将鼠标悬停在箱线图上时，我只看到秒，而不是润滑格式。 如何查看 y 轴上显示的数据？

Answer 1

据我了解，这个问题相当复杂。主要问题似乎是 lubridate 将时间存储为句点。因此，你可以在plotly中得到秒，就像在ggplot中一样，它们也是秒，它们只是通过“scale_y_time”在比例上转换。

根据我的理解，工作方法是将时间值转换为分钟数值。虽然这意味着一分钟在逗号/点后有 100 秒:

ggplot 的第一个选项:

library(plotly)
library(ggplot)
library(lubridate)
# calculate time as minutes passed and get it as numeriic
mins <- as.numeric(lubridate::hms(df$time) - hms("00:00:00"))/60

df$sex <- factor(df$sex)
df$time <- mins 

g <- ggplot2::ggplot(df) +
       ggplot2::geom_boxplot(aes(sex, time)) 

plotly::ggplotly(g)

直接使用plotly的第二个选项(仅适用于文本数据，不确定您是否可以将性别F添加为x，​​或者您是否需要第二个跟踪，并且还需要完成一些修饰......无论如何，ggplot给出了几乎相同的结果)

plotly::plot_ly(y = ~mins, type = "box")

可能有更好的解决方案 - 我只是在过去 2 小时内无法弄清楚;(