R数据特征分析

贡献度分析

barplot(dishdata[,3],col = 'green1',names.arg = dishdata[,2],width = 1,space = 0,
        ylim = c(0,10000),xlab = "菜品",ylab = "盈利：元")
accratio = dishdata[,3]
for (i in 1:length(accratio)) {
  accratio[i]=sum(dishdata[1:i,3])/sum(dishdata[,3])
}

par(new=T,mar=c(4,4,4,4))  #mar 底、左、上、右边距
#new如果设置为TRUE，则下一个高级绘图命令在
#绘制之前不应该像在新设备上一样清理框架
points(accratio*10000 ~ c((1:length(accratio)-0.5)),type = 'b',new= T)
axis(4,col = 'red',col.axis = 'blue',at = 0:10000,label=c(0:10000/10000))
mtext("累积百分比",4,2)
points(6.5,accratio[7]*10000,col='red')
text(7,accratio[7]*10000,paste(round(accratio[7]+0.00001,4)*100,"%"))

先做单边轴数据
barplot(dishdata[,3],col = ‘green1’,names.arg = dishdata[,2],width = 1,space = 0,
ylim = c(0,10000),xlab = “菜品”,ylab = “盈利：元”)
数据，柱状颜色，组名，柱宽，间距，y轴刻度，x\y标签

barplot(dishdata[,3],col = 'red1',names.arg = dishdata[,1],width = 2,space = 0.5,
        ylim = c(0,16000),xlab = "菜品",ylab = "盈利：元")

accratio = dishdata[,3]
for (i in 1:length(accratio)) {
accratio[i]=sum(dishdata[1:i,3])/sum(dishdata[,3])
}

构造比例列，如同在Excel里先复制一列数据，然后通过公式得出累积比例
par(new=T,mar=c(2,8,5,4)) 尚未弄明白

par(new=T,mar=c(8,2,5,4))

points(accratio*10000 ~ c((1:length(accratio)-0.5)),type = ‘b’,new= T)
相当于Y~x

axis(4,col = ‘red’,col.axis = ‘blue’,at = 0:10000,label=c(0:10000/10000))
参数：1=below, 2=left, 3=above and 4=right.
at标记要绘制的点