是否有办法将与ID关联的日期添加到我的Plotly graph中？

我有一个数据集data，具有以下值：

   ID                TIME                         Duration   
    A                12/18/2019 4:45:10 AM        1 sec
    A                12/18/2019 9:06:59 PM        0 sec                    
    B                12/19/2019 4:14:13 AM        7 sec
    B                12/19/2019 4:14:20 AM        0 sec
    A                12/18/2019 4:45:11 AM        0 sec

我有3列，包括ID、时间和持续时间。我希望按ID和时间分组，并使用plotly绘制ID的持续时间。到目前为止，一切都很顺利，我只是在把时间添加到图表上的条形图上遇到了麻烦。我在这篇文章中包括了一张照片

   ID                TIME                         Duration   
    A                12/18/2019 4:45:10 AM        1 sec
    A                12/18/2019 9:06:59 PM        0 sec
    A                12/18/2019 4:45:11 AM        0 sec                    
    B                12/19/2019 4:14:13 AM        7 sec
    B                12/19/2019 4:14:20 AM        0 sec

但是，我还想将与ID关联的日期添加到此图中。我还在做这个

数据：df1结构

ID = C ("A", "A", "B", "B", "A")

Date = C ("12/18/2019 4:45:10 AM", "12/18/2019 9:06:59 PM",
"12/19/2019 4:14:13 AM", "12/19/2019 4:14:20 AM",
"12/18/2019 4:45:11 AM")

 Duration = structure (C (1, 0, 7,0, 0)
 class = "difftime", units = "secs"

---

根据提供的数据，进行了更改。这将使悬停文本成为日期值。如果您想让它显示ID号，请尝试更改为'name=~ID'

ID = c("A", "A", "B", "B", "A")

Date = c("12/18/2019 4:45:10 AM", "12/18/2019 9:06:59 PM", "12/19/2019 4:14:13 AM", "12/19/2019 4:14:20 AM", "12/18/2019 4:45:11 AM")

Duration = c(1, 0, 7,0 , 0)

df1 <- data.frame(ID, Date, Duration)


plot_ly(data = df1,
        x = ~ID,
        y = ~Duration,
        text = ~Date,
        hovertemplate = paste('%{text}'),
        name = "Title",
        type = "bar",
        orientation = 'v',
        order = "ascending") %>%
  layout(title = "Time Graph",
         xaxis = list(title = "Message ID", tickangle = -45),
         yaxis = list(title ="Time in Seconds"))

---

你想在哪里看日期？X轴？鼠标悬停文字？是的，鼠标悬停文字或Xaxis。我现在正在查看文档，我不知道如何做到这一点

ID = C ("A", "A", "B", "B", "A")

Date = C ("12/18/2019 4:45:10 AM", "12/18/2019 9:06:59 PM",
"12/19/2019 4:14:13 AM", "12/19/2019 4:14:20 AM",
"12/18/2019 4:45:11 AM")

 Duration = structure (C (1, 0, 7,0, 0)
 class = "difftime", units = "secs"

ID = c("A", "A", "B", "B", "A")

Date = c("12/18/2019 4:45:10 AM", "12/18/2019 9:06:59 PM", "12/19/2019 4:14:13 AM", "12/19/2019 4:14:20 AM", "12/18/2019 4:45:11 AM")

Duration = c(1, 0, 7,0 , 0)

df1 <- data.frame(ID, Date, Duration)


plot_ly(data = df1,
        x = ~ID,
        y = ~Duration,
        text = ~Date,
        hovertemplate = paste('%{text}'),
        name = "Title",
        type = "bar",
        orientation = 'v',
        order = "ascending") %>%
  layout(title = "Time Graph",
         xaxis = list(title = "Message ID", tickangle = -45),
         yaxis = list(title ="Time in Seconds"))