程序有点小小问题，以下才能获得正确结果

library(ggplot2)
x=abs(rnorm(10))
pp=seq(0.1,1,by=0.1);pp
sx=array(0,10,1);sx
for(i in 1:10)
{
  sx[i]=sum(x[1:i])
}
sx
DataCumPer=data.frame(CUM=sx,PP=pp)#一定要转换成数据框
p=ggplot(DataCumPer,aes(CUM,PP))
p=p+geom_line(linetype="dotted",size=I(0.8))#设置线型和粗细
p=p+xlab("累积和")#横轴标签
p=p+geom_point(size=I(3),shape=I(18))#设置形状和大小
p=p+ylab("百分位点")#纵轴标签
p=p+opts(axis.title.x= theme_text(size = 15,colour="red"))#设置字体和颜色
p=p+opts(axis.title.y= theme_text(size = 15,colour="blue"))#设置字体和颜色
p=p+scale_y_continuous(formatter = "percent",breaks =pp)#设置格式为百分比，10%为一档
p=p+opts(title="帕累托图",plot.title = theme_text(size = 20,face="bold",vjust=1.5))#设置图的标题
p#显示结果

library(ggplot2) 忘记加载包了！在Rstudio里面编辑  我已经预加载了，所以就忘记添加了

for循环里面的sx要加下标，设置颜色，参数为colour不是color，

哦 是的。写错了。ggplot使用的是英式英语

0.90版ggplot的兼容性问题

require(ggplot2)
require(scales) # 0.90版必须要加载的
x=abs(rnorm(10))
pp=seq(0.1,1,by=0.1);pp
sx=array(0,10,1);sx
for(i in 1:10)
{
  sx=sum(x[1:i])
}
sx
DataCumPer=data.frame(CUM=sx,PP=pp)#一定要转换成数据框
p=ggplot(DataCumPer,aes(CUM,PP))
p=p+geom_line(linetype="dotted",size=I(0.8))#设置线型和粗细
p=p+xlab("累积和")#横轴标签
p=p+geom_point(size=I(3),shape=I(18))#设置形状和大小
p=p+ylab("百分位点")#纵轴标签
p=p+opts(axis.title.x= theme_text(size = 15,colour="red"))#设置字体和颜色
p=p+opts(axis.title.y= theme_text(size = 15,colour="blue"))#设置字体和颜色
p=p+scale_y_continuous(labels = percent,breaks=pp)#设置格式为百分比，10%为一档(0.90版)
p=p+opts(title="帕累托图",plot.title = theme_text(size = 20,face="bold",vjust=1.5))#设置图的标题
p#显示结果