library(ggplot2)
library(forecast)
# Build a vector of dates. It is convenient to use the first of the month
time <- seq(as.Date("2008/1/1"),as.Date("2016/12/1"),by="month")

# Build a data frame to plot
pkg_data <- data.frame(time,results)
names(pkg_data) <- c("Month", "New_Pkg")
#head(pkg_data)

p <- ggplot(pkg_data, aes(x=Month, y=New_Pkg)) +
     geom_line() +
     geom_smooth(method="loess") 
p