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"))