1. df = structure(list(Date = structure(c(16075, 16082, 16082, 16089, 16096, 16096, 16103, 16110, 16110), class = "Date"), Type = c("Type-1", "Type-1", "Type-2", "Type-1", "Type-1", "Type-2", "Type-1", "Type-1", "Type-2"), Numbers = c(16, 82, 2, 177, 270, 3, 381, 461, 4)), .Names = c("Date", "Type", "Numbers"), row.names = c(NA, -9L), class = "data.frame")
  3. # don't switch to scientific notation, since we want date to be
  4. # represented in milliseconds
  5. options(scipen = 13)
  6. dat = transform(df, Date2 = as.numeric(as.POSIXct(Date))*1000)
  8. h1 <- hPlot(Numbers ~ Date2, data = dat, 
  9.   group = 'Type', 
  10.   type = "line", 
  11.   radius=6
  12. )
  13. h1$xAxis(type = 'datetime', labels = list(
  14.   format = '{value:%Y-%m-%d}'  
  15. ))
  16. h1