如何运用ggplot绘制累积分布图

flh_mail

20853

收藏 2015-05-29

工作簿2.xlsx
大小:(384.45 KB)

马上下载

对商品分析，原始表如下（大约几万行，按销售额从高到底排序，只显示了部分）：

货号	销售额
262	1610180.75
771	301882.8
6394	167369.25
8354	159288.45
11674	148000.02
13154	135743.91
5548	132251.96
3197	130263.12
5779	126172.91
19342	114698.27
5619	113255.99
16097	112023.02
4870	111748.56
5549	111599.93
18781	111148.94
4206	107418.77
11572	103009.14
3198	101748
12516	100240.49
10920	99200.07
5691	90749.82

需要做好如下所示的图：

x轴表示累计的商品数比率，如20表示销售额排名在前的累计20%的品项
y轴表示累计的销售比率，如80表示累计销售占到80%
如何用ggplot绘制出这样的图，肯请指教，不吝感谢

扫码加我拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

全部回复

victorchan0633

2015-6-9 23:50:08

代码为：
> goods<-read.csv("goods.csv",header=T)
> attach(goods)
> len=dim(goods)[1]
> ssal<-c()
> slen<- sum(sales)
> ssal[1]<-sales[1]/slen
> for(j in 2:len){ssal[j]=sales[j]/slen+ssal[j-1]}
> iid<-c()
> for(i in 1:len){iid[i]=i/len}
> huizong<-data.frame(iid,ssal)
> require(ggplot2)
> p=ggplot(data=huizong,aes(x=iid,y=ssal))
> p+geom_line()+labs(x="累计商品数比率",y="累计销售比率")，附件中为结果图

附件列表

Rplot.png

原图尺寸 3.25 KB