R語言-餅圖
阿新 • • 發佈：2018-12-13
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"))
