R 作饼形图

使用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)