I have got it,it was not conversion it was wrong data passing.
library(dygraphs)
library(xts)
library(lubridate)
library(timetk)
library(dplyr)
library(readr)
data1<-tibble::tribble(
~month, ~abortion, ~delivery, ~pregnant,
"01-01-2017", 13, 30, 43,
"01-02-2017", 40, 14, 54,
"01-03-2017", 19, 15, 34,
"01-04-2017", 45, 20, 65,
"01-05-2017", 16, 60, 76,
"01-06-2017", 10, 35, 45,
"01-07-2017", 10, 55, 65,
"01-08-2017", 17, 70, 87,
"01-09-2017", 10, 88, 98,
"01-10-2017", 18, 60, 78,
"01-11-2017", 25, 40, 65,
"01-12-2017", 30, 37, 67,
"01-01-2018", 30, 26, 56,
"01-02-2018", 25, 20, 45,
"01-03-2018", 20, 14, 34,
"01-04-2018", 30, 24, 54,
"01-05-2018", 20, 45, 65,
"01-06-2018", 10, 57, 67,
"01-07-2018", 10, 88, 98,
"01-08-2018", 60, 18, 78,
"01-09-2018", 30, 35, 65,
"01-10-2018", 30, 37, 67,
"01-11-2018", 10, 46, 56,
"01-12-2018", 20, 45, 65,
"01-01-2019", 10, 35, 45,
"01-02-2019", 10, 24, 34,
"01-03-2019", 30, 35, 65,
"01-04-2019", 40, 25, 65,
"01-05-2019", 40, 48, 88
)
#d1<-aggregate(. ~data1$month,data = data1,sum)
#s<-parse_datetime(data1$month, "%d/%m/%y")
#s<-as.Date(data1$month)
# s<-as.POSIXct(as.numeric(as.character(data1$month)),origin = "2017-01-01")
# s
qxts <- xts(data1[, -1], order.by=as.POSIXct(data1$month))
ad <- cbind(qxts$abortion,qxts$delivery,qxts$pregnant)
dygraph(ad, main = "Deaths from Lung Disease (UK)") %>%
dySeries("abortion", stepPlot = TRUE, color = "red") %>%
dyGroup(c("delivery", "pregnant"), drawPoints = TRUE, color = c("blue", "green"))