R语言 堆叠可视化/可视化对比分析简单学习案例(R语言＆大数据分析qq群 456726635 欢迎讨论交流)

本文进行了销售同比的堆叠可视化分析，使用R语言实现了简单案例，跟大家共同学习。点击链接加入群【R语言＆大数据分析】：https://jq.qq.com/?_wv=1027&k=4BQLEWp，R语言＆大数据分析qq群 456726635 欢迎讨论交流

library(data.table)

chinesemonth=paste(a,b,sep = "")
df<-fread("D:/资讯工作资料/bartestdata/saledata.csv",header=T)
entities<-unique(df$entityno)  #所有店铺
#单店铺数据
entitydata <- data.table(subset(df,grepl(entities[1],df$entityno,ignore.case = F)))
entitydata <- entitydata[order(entitydata[,1],decreasing=F),]
entitydata
mydate<-unique(entitydata$date)
currentsale<-vector()  #今年销售
lastsale<-vector()     #去年销售
currentdisc<-vector()  #今年折扣
lastdisc<-vector()     #去年折扣
for(i in 1:length(mydate))
{
  slic<-data.table(subset(entitydata,grepl(mydate[i],entitydata$date,ignore.case = F)))
  currentsale[i]<-sum(as.numeric(slic$sale))
  lastsale[i]<-sum(as.numeric(slic$lastsale))
  currentdisc[i]<-sum(as.numeric(slic$sale))/sum(as.numeric(slic$price))
  lastdisc[i]<-sum(as.numeric(slic$lastsale))/sum(as.numeric(slic$lastprice))
}

nf <-layout(matrix(c(1,2,3,4,5,6,7,8,9,10,11,12,13,13,13,13,13,13,13,13,13,13,13,13,14,14,14,14,14,14,14,14,14,14,14,14), 3, 12, byrow = T),heights=c(1.5,1,1))
layout.show(nf)
#par(mar = c(3,0,1,1))
par(mar = c(3,1,0,1))

for(i in 1:12)
{
  #barplot(yhist$counts, axes = FALSE, xlim = c(0, top), space = 0, horiz = TRUE)
  if(i %% 2 == 0) 
  {
    par(mar = c(3,0,0,1))
    barplot(c(1, 0.6, 0.4), horiz = T, xlim = 0:1)
  }
  else
  {
    par(mar = c(3,1,0,0))
    barplot(c(1, 0.6, 0.4), horiz = T, xlim = 1:0)
  }
  
}
par(mar = c(3,3,0,1))
qq=data.table(currentdisc)
ww=data.table(lastdisc)
discdata=data.table(ww,qq)
matplot(discdata,type="o",pch=15:16)
#legend("topright",pch=16:17,col=2:3,legend = names(discdata))


qq1=data.table(currentsale)
ww1=data.table(lastsale)
discdata=data.table(ww1,qq1)
matplot(discdata,type="o",pch=15:16)