小编Abh*_*ngh的帖子

这是表格:

([TeamA],[TeamB],[Win],[date])

('KKR','HYD','KKR',1), 
('KKR','MUM','MUM',2), 
('RCB','HYD','HYD',3), 
('DEL','PUB','PUB',4), 
('RR','PUB','RR',4), 
('RR','DEL','RR',5),
('RCB','CSK','CSK',6),
('RR','CSK','RR',7),
('CSK','MUM','MUM',7),
('MUM','DEL','MUM',8),
('HYD','PUNE','PUNE',9),
('PUB','DEL','DEL',9),
('KKR','DEL','KKR',10),
('KKR','RCB','KKR',10)

所要求的答案应该是连续3次获胜的球队和计数.这里例如RR和MUM连续三次获胜.KKR有3胜,但如果我们看到日期列不是连续3,那么KKR不应该在答案中,输出应该是

RR 1
MUM 1

我使用这个为pareto图表(库qcc):

## abcd is a data frame, and I am producing chart for column products
Product <- abcd$products
names(Product)<-abcd$customerid
pareto.chart(Product, ylab = "Number of Products", xlab="Customer", xaxt="n")
abline(v = 1000)

由于我的数据很大,我想abline在x轴的10%间隔之后添加,但不知怎的,我没有得到线.

如果某些功能可以在这里工作或者abline不允许在帕累托中使用,请告诉我？