R Данные временных рядов Plotly, отображаемые на дате вместо даты и времени

Question

Я пытаюсь построить данные временных рядов с помощью графического бегунка диапазона в Power BI.Я сталкиваюсь с проблемами, из-за которых значения строятся на основе даты, а не даты и времени.Почти как если бы часть времени была потеряна

Вот пример моих необработанных данных

Datetime           Legend          Value
24/01/2019 6:30    A1 RT8EACBT      34
24/01/2019 6:41    A1 RT1EASIVT     46
24/01/2019 6:41    A1 RT8EACBT      33
24/01/2019 6:50    A1 RT1EASIVT     45
24/01/2019 6:50    A1 RT8EACBT      33
24/01/2019 7:00    A1 RT1EASIVT     45
24/01/2019 7:00    A1 RT8EACBT      33
24/01/2019 7:11    A1 RT1EASIVT     43
24/01/2019 7:11    A1 RT8EACBT      33
24/01/2019 7:20    A1 RT1EASIVT     45
24/01/2019 7:20    A1 RT8EACBT      35
24/01/2019 7:31    A1 RT1EASIVT     45
24/01/2019 7:31    A1 RT8EACBT      34

Ниже представлен график вывода

Plotly Output

Ниже приведен код, который я использую

library(plotly)
library(quantmod)

# My data frame is called Values

p <- plot_ly(Values, x = ~as.POSIXct(Datetime, "%Y-%m-%d %h:%m:%s"), y = ~Value, color= ~Legend, type = 'scatter', mode = 'lines') %>%

  layout(
    title = "Test",
    xaxis = list(
      rangeselector = list(
        buttons = list(
          list(
            count = 3,
            label = "3 mo",
            step = "month",
            stepmode = "backward"),
          list(
            count = 6,
            label = "6 mo",
            step = "month",
            stepmode = "backward"),
          list(
            count = 1,
            label = "1 yr",
            step = "year",
            stepmode = "backward"),
          list(
            count = 1,
            label = "YTD",
            step = "year",
            stepmode = "todate"),
          list(step = "all"))),

      rangeslider = list(type = "date")),

    yaxis = list(title = "Values"))

https://plot.ly/r/time-series/