tf <-tempfile()
writeLines("TIME inflation
2011-01 9.302325
2011-02 8.823529
2012-03 8.823529
2012-04 9.411765
2013-05 8.72093
2013-06 8.620689",tf)
mydf<-read.table(tf,
header = TRUE)
library(lubridate)
library(dplyr)
library(plotly)
mydf2 <- mutate(mydf,
time_dt = ymd(paste0(TIME,"-01")))
plot_ly(data=mydf2,
type="scatter",
mode="lines+markers",
x=~time_dt,
y=~inflation)