使用R语言作图和分析很久了，一直都想把常见的一些图形的做法记下来，今天开始实践。
data=seq(1,10,length.out=10) ratio=paste(round(data/sum(data),4)*100,"%",sep=‘‘) labels=c(‘One‘,‘Two‘,‘Three‘,‘Four‘,‘Five‘,‘Six‘,‘Seven‘,‘Eight‘,‘Nine‘,‘Ten‘) slide_labels=paste(labels,ratio,sep=‘ ‘) pie(data,labels=‘‘,border=NA,radius=0.5,col=rainbow(10)) legend(‘right‘,legend=slide_labels,bty=‘n‘,text.col=rainbow(10),xpd=T)
原文：http://www.cnblogs.com/jipin/p/4996154.html