par(las=1,col.main='black',col.lab='blue',bg=gray(0.95)) #fg='gold',
hist(cc6,density=c(10,20),ylim=c(0,45),xlim=c(50,105),angle=c(30,120),label=T,border='gold',breaks=c(50,60,70,80,90,100),freq=T,main=tt0,xlab=ttx,col=rainbow(4),ylab=tty,tck=0.01)
rug(jitter(cc6))
lines(cc6s,col='red',cex=2,lwd=3,type='o',pch=17)
text(cc6s$x,cc6s$y+1.5,pos=4,paste0('人,占比',round(cc6s$y/0.71,1),'%'),col='red')
#图片见目录003-8
box();grid()
hist(cc6,density=c(10,20),ylim=c(0,45),xlim=c(50,105),angle=c(30,120),label=T,border='gold',breaks=c(50,60,70,80,90,100),freq=T,main=tt0,xlab=ttx,col=rainbow(4),ylab=tty,tck=0.01)
rug(jitter(cc6))
lines(cc6s,col='red',cex=2,lwd=3,type='o',pch=17)
text(cc6s$x,cc6s$y+1.5,pos=4,paste0('人,占比',round(cc6s$y/0.71,1),'%'),col='red')
#图片见目录003-8
box();grid()
