salesdecompositionPlot2=function(
time,
sales_decomp){
library(reshape2)
library(ggplot2)
library(plotly)
library(RColorBrewer)
decompose_dataset=salesdecomposition2(sales_decomp)
decompose_dataset$time=stockeddata[,time]
decompose1=melt(decompose_dataset[,colnames(decompose_dataset)!=depvar],id=colnames(decompose_dataset)[ncol(decompose_dataset)])
ggplot()+
geom_area(aes(y=value,x=time,fill=variable),data=decompose1,stat="identity")+
theme(legend.position="right",legend.direction="vertical")+
labs(fill="")+
ggtitle("salesdecomposition")+
labs(x=time,y="salesamount")+
scale_fill_manual(values=brewer.pal(n=length(decompose_dataset)-2,name="Blues"))+
theme_bw()+
theme(axis.line=element_line(size=1,colour="black"),panel.grid.major=element_blank(),
panel.grid.minor=element_blank(),panel.border=element_blank(),
panel.background=element_blank())
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.