R语言-饼图

1.饼图

> browsers<-read.table("browsers.txt",header=TRUE) 
> browsers<-browsers[order(browsers[,2]),]          #按第2列排序
> pielabels <- sprintf("%s = %3.1f%s",              #增加标注
+ browsers[,1],                                     #%s为第一列
+ 100*browsers[,2]/sum(browsers[,2]),               #%3.1f为计算出的百分比
+ "%")                                              #%s为%
> pie(browsers[,2],                                 #画第2列
+ labels=pielabels, 
+ clockwise=TRUE,                                   #顺时针画
+ col=brewer.pal(7,"Set1"), 
+ border="white", 
+ radius=0.7,                                       #设置半径，范围为（-1，1）
+ cex=0.8, 
+ main="Percentage Share of Internet Browser usage") 
> legend("bottomright",legend=pielabels,bty="n", 
+ fill=brewer.pal(7,"Set1"))