#' @title Plot of Time Series
#' @description This function generates a plot with the original and reconstructed series
#' @param TS is a object type ts wiht ncol mayor o equal to 2 and It represents the original series that user establishes
#' @param RTS is a object type ts that that is generated from the reconstruction of series
#' @return a plot with the original series and the reconstructed series are found
#' @import ggplot2
#' @import reshape2
#' @export
rts_plotGroup=function(TS,RTS){
Dates = seq.Date(from = as.Date(paste(c(start(TS),1),collapse = "/")),
by="month" ,length.out = dim(TS)[1] )
nbts = colnames(TS)
nbrts = colnames(RTS)
x=as.data.frame(TS)
x$Dates = Dates
rx=as.data.frame(RTS)
rx$Dates = Dates
plx = reshape2::melt(x,id.vars = "Dates",na.rm = FALSE)
plx$Tipo="Original"
plrx= reshape2::melt(rx,id.vars = "Dates",na.rm = FALSE)
plrx$Tipo="Reconstruidas"
# ......................
p1 = ggplot2::ggplot(data = plrx,
aes_string(x = "Dates",
y = "value")) +
geom_line(size = 0.8,
aes(color = variable),
# linetype="dashed",
alpha=I(0.3)) +
geom_line(data = plx , size = 1.1,
aes(color = variable)) +
# geom_point(color="grey") +
scale_color_grey(start = 0.1, end = 0.1, na.value= "red") +
theme_minimal()
# plot(p1)
return(p1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.