x=1:10
y=1:10
plot(x,y,axes=F)
z=numeric(length(y))
z[1]=(y[i]/sum(y))*100
for(i in 2:length(y))
z[i]=(z[i-1]+y[i])
f=as.integer(z)
axis(1)
axis(2,1:length(y),paste(f,'%',sep=''))

x=1:10
y=1:10
plot(x,y,axes=F)
z=numeric(length(y))
z[1]=(y[i]/sum(y))*100
for(i in 2:length(y))
z[i]=(z[i-1]+y[i])
f=as.integer(z)
axis(1)
axis(2,1:length(y),paste(f,'%',sep=''))
box()

应该这样才对啊，呵呵
x=1:10
y=1:10
plot(x,y,axes=F)
z=numeric(length(y))
z[1]=y[1]
for(i in 2:length(y))
z[i]=(z[i-1]+y[i])
z=z/sum(y)
z=z*100
f=round(z);f
axis(1)
axis(2,1:length(y),paste(f,'%',sep=''))
box()

应该这样才对啊，呵呵
x=1:10
y=1:10
plot(x,y,axes=F)
z=numeric(length(y))
z[1]=y[1]
for(i in 2:length(y))
z[i]=(z[i-1]+y[i])
z=z/sum(y)
z=z*100
f=round(z);f
axis(1)
axis(2,1:length(y),paste(f,'%',sep=''))
box()

不知道樓主是想問怎麼作圖，還是問怎麼使圖形更漂亮？想得到漂亮的圖形可以用library tikzDevice...